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CHE CARATTERE! 




DATA BASE OEM-D: una delle maggiori 
organizzazioni per la distribuzione di pro¬ 
dotti OEM; offre non solo l’assoluta affida¬ 
bilità tecnica, la sicurezza e la completez¬ 
za applicativa dei prodotti distribuiti ma, 
garantisce attraverso i propri tecnici una 
continua ed immediata assistenza, in gra¬ 
do di risolvere sempre ad alta professio¬ 
nalità ogni particolare problema. 

Ecco perchè la HONEYWELL INFORMA¬ 
TION SYSTEM ITALIA mette le sue stam¬ 
panti in mani esperte e sicure. 

Stampanti HONEYWELL le printers tutte 
italiane. 

Matrice 9x9; velocità di stampa da 100 a 
400 caratteri per sec.; CORRISPONDEN- 
CE QUALITY e la più completa gamma 
di caratteri grafica inclusa. 

Un’unione dalle grandi prestazioni e dal 
prezzo “piccolo”. 

DATA BASE OEM-D qualità e servizio. 

DATA BASE OEM-D è sicurezza. 
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E un affare acquist^e le Fiat a 4288 lire per 
azione? E quando sera'il momento di vendere le 
Mediobanca? In Borsa migliaia di risp^rniatori ci 
hanno rimesso le penne: non si può'competere 
con gli investitori istituzionali e con gli 
speculatori d' assalto se non si affronta un 
mercato cosi ' complesso e difficile in modo 
professionale. Dunque, cosa conviene fare? 
Starne lontani? Certo, almeno finche non si 
dispone di strumenti che possano aiutare a 
capirne i meccanismi, ad analizzarne i 
movimenti. 

Ecco perche anche chi nei confronti della 
Borsa nutre un' istintiva diffidenza 
troverà' interessante il nostro programma di pag. 
34, che registra tutte le transazioni di 
portafoglio, segnalando guadagni e perdite, e 
consente un'attenta analisi di mercato (con 
grafici, azione per azione, che evidenziano i 
prezzi minimi, massimi e di chiusura; le 
quantità'trattate; le medie mobili a tredici e a 
cinquantadue giorni, ecc.). 

In Borsa infatti si può'entrare acquistando 
titoli per un milione o per un miliardo. Ma si 
può ' anche, ed e ' molto piu ' sicuro almeno 
fintantoché ' non si sa con certezza come 
comportarsi, simulare di entrarci, acquistando e 
vendendo azioni solo sulla carta. O meglio, nel 
nostro caso, sullo schermo di un Apple//. 





P.S. Questo numero di Applicando, per cause 
tecniche, esce in ritardo: ce ne scusiamo con gli 
abbonati, con i lettori e con gli inserzionisti. 
Confidiamo che i suoi contenuti facciano 
perdonare V attesa. Il prossimo numero, lo 
promettiamo fin d' ora, sera piu'puntuale. E 
avra' 16 pagine in piu '. 
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E Lisa 

si fa in quattro 

Si chiamano Lisa 2, Lisa 
2/5 e Lisa 2/10 e sono le nuo¬ 
ve versioni del’personal 
computer Lisa presentate in 
contemporanea con il Ma¬ 
cintosh . Insieme formano la 
nuova famiglia dei supermi- 
cro a 32 bit della Apple, nel¬ 
la fascia più alta della linea 
di prodotti della società di 
Cupertino. La caratteristica 
più significativa dei nuovi 
personal Lisa è l’adozione 
dei dischi da 3,5 pollici che 
permette la compatibilità 
dei supporti magnetici an¬ 
che con Macintosh. 

Il Lisa 2 ha una memoria 
interna (RAM) da 512 Kilo- 
byte, un lettore di dischi co¬ 
me memoria di massa ed è 
corredato da tastiera, mou¬ 
se e video bit mapped inte¬ 
grato. Costa (Iva esclusa) 
5,9 milioni di lire. Le due 
versioni Lisa 2/5 e 2/10 han¬ 
no le stesse caratteristiche, 
ma offrono una memoria di 
massa addizionale: il 2/5 
(prezzo, Iva esclusa, 7,9 mi¬ 


lioni) è dotato di hard disk 
(disco rigido) esterno con 
capacità di 5 Megabyte men¬ 
tre il 2/10 (9,9 milioni. Iva 
esclusa) ha incorporato un 
hard disk da 10 Megabyte. 

In tutti e tre i modelli Lisa 
c’è l’espansione della me¬ 
moria di lavoro (RAM) a 1 


Quando l’arte 
paria Basic 

Digital Dancer (da cui è 
tratta Timmagine a sinistra) 
è il titolo di un video d’auto¬ 
re presentato insieme con 
altri 17 alla mostra Immagi¬ 
ni da computer organizzata 
in gennaio a Prato dall’as¬ 
sessorato alla cultura con le 
opere (riproduzioni da com¬ 
puter e video) del Siggraph 
’83, mostra annuale sponso¬ 
rizzata e distribuita dalla 
Acm (organizzazione dei 
produttori statunitensi di 
calcolatori). 

Nella Sala Maggiore del 
Palazzo Pretorio di Prato, 
per la prima volta in Italia 
erano esposte 55 opere di 
computer art, alcune delle 
quali realizzate con Apple II 
(come American Sunset di 
Richard Helmick, Faces di 
Tom Porett, con software di 
Steve Dompler). 

costa 370 mila lire). A chi 
possiede il Lisa 1, la Apple 
offre gratuitamente fino 
airi giugno 1984 la nuova 
versione del sistema appli¬ 
cativo, le 6 applicazioni in 
lingua italiana e l’unità di 
lettura e scrittura per dischi 
da 3,5 pollici. 


Megabyte e una nuova ver¬ 
sione del sistema operativo 
(2.0) per Lisa 2 che permet¬ 
te una più veloce esecuzione 
dei comandi, fino a dimez¬ 
zarne i tempi. Su Lisa sarà 
possibile, poi, utilizzare tut¬ 
ti i programmi disponibili 
per Macintosh (il software 
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A che serve 
Catalyst 

Cosa fate quando dovete 
lavorare con due program¬ 
mi? Fate il «Footing» del 
primo, e lavorate con quel¬ 
lo; poi uscite, fate il «Foo¬ 
ting» del secondo, e lavorate 
col secondo. Ma poi vi serve 
di nuovo il primo, e dovete 
uscire dal secondo per tor¬ 
nare al primo. E se dovete 
lavorare contemporanea¬ 
mente con tre, quattro, n 
programmi? 

Catalyst, della Quark 
Ine., ma distriFuito dalla 
Apple Computer, risolve 
una volta per tutte il proFle- 
ma di passare da un pro¬ 
gramma all’altro senza do¬ 
ver continuamente mano¬ 
vrare i dischetti. Per ora è 
disponiFile solo per Apple 
/// e Profile, ma con ProDos 
girerà anche su Apple //e e 
Profile. 

In pratica, come funzio¬ 
na? Catalyst permette di ca¬ 



ricare e salvare una gran va¬ 
rietà di programmi su Profi¬ 
le, richiamandoli inserendo 
il solo dischetto di Catalyst, 
invece che i singoli dischetti 
di ciascun programma. Per 
passare poi da un program¬ 
ma all’altro sarà sufficiente 
scegliere dal menù di Cata¬ 
lyst. E quasi tutto ciò che è 
stato scritto per Apple ///, 
compresi i programmi pro¬ 
tetti come VisiCalc, Apple 
Writer III e Quick File, fun¬ 
ziona con Catalyst senza 
problemi di sorta. 


Chi ha vinto 
Watanabe 

Il plotter Watanabe che 
Applicando ha messo in pa¬ 
lio fra tutti coloro che risul¬ 
tavano abbonati alla data 
del 25 dicembre è stato vinto 
da Ponzio Suardi, via Rava- 
schieri 19, 16043 Chiavari 
(Genova). 

Il nominativo di Suardi è 
stato estratto a sorte assie¬ 


me a quelli di altri nove let¬ 
tori, come da regolamento 
del concorso. Fa i dieci 
estratti è risultato quello che 
si era abbonato per primo. 

Il plotter è provvisto di sei 
penne colorate, piano di 
scrittura inclinato, interfac¬ 
cia 8 bit parallela standard' 
Centronics, e possibilità di- 
regolare la velocità di plot- 
taggio da software (massimo 
15 cm/sec.). Il prezzo è di 
1.650.000 lire più Iva. 



ArlhurKcIlcf ThooiM C. Barn* 



I segreti per 
programmare 

Due manuali indispensa¬ 
bili per imparare rapida¬ 
mente a scrivere programmi 
di buon livello in linguaggio 
Basic e Pascal: utili per stu¬ 
denti medi e universitari e 
abbastanza completi per i 
tecnici. La struttura dei libri 
è quella della progettazione 
top-down: si va cioè dal ge¬ 
nerale al particolare. I titoli: 
Programmare in Basic di 
Thomas C. Bartee (Zani¬ 
chelli, 18.500 lire) e Pro¬ 
grammare in Pascal di Art¬ 
hur Keller (Zanichelli, 
18.500 lire). 


Chi guida ia 
moia itaiiana 

Modenese, 45 anni, spo¬ 
sato, due figli (appassionati 
di computer), laureato in fi¬ 
sica, Ciro Ascari è il nuovo 
direttore generale della Ap¬ 
ple computer in Italia. «Ciò 
che più mi ha convinto ad 
accettare l’incarico è stata 
l’atmosfera giovane che si 
respira alla Apple». 

In una struttura agile e di¬ 
namica, Ascari metterà a 
frutto la lunga esperienza 
fatta nel settore Edp iniziata 
nel 1968 alla Wang e prose¬ 
guita dal 1969 alla Sperry. 

«Essere alla guida della 
Apple computer è stata l’op¬ 
portunità più entusiasmante 
che mi è stata offerta per 
rientrare nel mondo dell’in¬ 
formatica». Ascari ha assun¬ 
to l’incarico nel momento in 
cui la Apple computer ha 
completato l’acquisizione 
del pacchetto azionario del 
distributore italiano Iret in¬ 
formatica spa. 
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lo applico, 
tu applichi? 


La pubblicità su 
Applicando è informazione. 
Chi legge Applicando 
possiede un computer 
Apple o sta per acquistarlo. 
Oppure sta per cambiarlo 
con un Apple //e. 

O con un Lisa. 

Oppure non lo cambia 
affatto, se lo tiene stretto, 
ma vuol sapere dove, 
come e cosa fa 
veramente per lui. 

Una nuova marca 
di dischetti? 

Una nuova 
Software House? 

Una nuova stampante 
a basso prezzo? 

Per chi applica, 
è importante saperlo. 
Subito. 


Per la pubblicità 


h Strada, 24 

Milano San Felice (Segrete) 
Tel. (02) 75 32 151 

STUDIOSFERA (02) 75 33 939 


cosa 



Le nuove 
pagine del soft 

Ottocento package applicativi per 
ogni necessità e tutti per Apple, 
elencati con le indicazioni di utilizzo, 
di prezzo e di reperibilità. Indici alfa¬ 
betici, analitici per utenza e analitici 
per produttore. E in più l’elenco 
completo delle pubblicazioni per 
Apple, dei rivenditori e dei centri di 
assistenza. È quanto potrete trovare 
sulle “Pagine gialle del software”, la guida ai programmi per 
i personal Apple, che verrà messa in vendita da aprile a 12 
mila lire. Chi userà il tagliando pubblicato nel prossimo 
numero di “Applicando” avrà diritto a uno sconto di 2 mila 
lire mentre i possessori di Applicard, cioè gli abbonati di 
“Applicando”, potranno avere le “Pagine gialle del softwa¬ 
re” al prezzo speciale di 7 mila lire. 


Hit parade Usa 

1. Apple Writer Ile, Paul Lutus, Apple Computer 

2. Legacy of Llylgamyn, Andrew Greenberg e 
Robert Woodhead, Sir-tech 

3. Lode Runner, Doug Smith, Broderbund Soft¬ 
ware 

4. VisiCalc, Software Arts/Dan Bricklin e Robert 
Frankston, VisiCorp 

5. Master Type, Bruce Zweig, Lightning Software 

6. Exodus:Ultima III, Lord British, Origin Sy¬ 
stems 

7. Bank Street Writer, Gene Kuzmiak e Bank 
Street College of Education, Broderbund Soft¬ 
ware 

8. Quick File Ile, Rupert Lissner, Apple Com¬ 
puter 

9. PFSrFile, John Page e D.D. Roberts, Software 
Publishing Corporation 

10. Zaxxon, John Garcia, Datasoft 

11. Home Accountant, Bob Schoenburg, Larry 
Grodin e Steve Pollack, Continental Software 

12. Multiplan, Microsoft 

13. Sensible Speller, Charles Hartley, Sensible 
Software 

14. PFS:Report, John Page, Software Publishing 
Corporation 

15. Typing Tutor, Dick Ainsworth, Al Baker e 
Image Producers, Microsoft 

16. Apple Logo, Logo Computer System, Apple 
Computer 

17. Wizardry, Andrew Greenberg e Robert 
Woodhead, Sir-tech 

18. Magic Window II, Bill Depew, Artsci 

19. Wordstar, MicroPro 

20. Word Handler, Léonard Elekman, Silicon 
Valley System 

21. Choplifter, Dan Gorlin, Broderbund Soft¬ 
ware 

Zork I, Incofom 












Grazie al ProDos adesso è possibile 
usare il mouse anche su Apple // e Apple III 
e farli meglio dialogare tra loro. 
E in più, arriva Tre per te, un nuovo 
eccezionale programma che consente di ... 

Primavera 
della Mela 


Q uasi un milione e mezzo di per¬ 
sone nel mondo possiedono un 
Apple II o e. Proteggere il loro iine- 
stimento. rivalutandolo alla luce delle 
nuove tecnologie hardware e scìttwa- 
re. è la filosofia di base della Apple ed 
è ciò che ha ispirato il nuovo sistema 
operativo ProDos. ProDos infatti per- 
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metterà di utilizzare anche su Apple III 
e //e il mouse già adottato da Lisa e da 
Macintosh. In questo modo, grazie al 
topolino, qualsiasi modello Apple po¬ 
trà usare per esempio il programma 
Mouse Paint, un package grafico ad 
alta risoluzione che fa del personal un 
tavolo da disegno completo di matite, 
gomme, pennelli di diverse dimensio¬ 
ni, spray e colori (vedere articolo su 
Macintosh). Oppure usare il mouse 
come interfaccia user friendly per faci¬ 
litare l’utilizzo dei programmi classici 
(spreadsheet, word processing, archi¬ 
viazione) , ma soprattutto renderà an¬ 
cor più compatibili i vari modelli Ap¬ 
ple: Apple // dialogherà meglio con 
Apple ///. 

ProDos non è altro che un sistema 
operativo, che viene fornito su di¬ 
schetto, e per tornare a lavorare con il 
Dos 3.3 basta inserire uno dei vecchi 
dischetti. Ma ecco più in dettaglio di 
che cosa si tratta. ProDos è stato dise¬ 
gnato per facilitare il passaggio dall’a¬ 
rea dei programmi scritti per il Dos 3.3 
a programmi più specificamente pro¬ 
fessionali, capaci di sfruttare meglio le 
capacità dell’Apple in termini di ac¬ 
cesso ai dati su disco, o a disk driver di 
servizio indipendenti non compatibili 
con il Dos 3.3. 

ProDos permette anche una mag¬ 
giore compatibilità tra Apple // e Ap- 
pie ///. ProDos e Sos (il sistema opera¬ 
tivo di Apple III) sono infatti identici 
nella struttura del formato dei file e 



nelle procedure di naming. I file del 
Sos permettono di utilizzare indiffe¬ 
rentemente dati memorizzati su Ap¬ 
ple// e ///, caratteristica questa che 
apre la strada ad applicazioni di rete o 
di altro tipo. Un altro vantaggio è lo 
sviluppo semplificato di applicazioni 
che prevedono l’utilizzo contempora¬ 
neo di Apple// e Apple III. 

Per far girare ProDos su un Apple 
della serie // non è necessaria nessuna 
particolare modifica nell’hardware né 
occorre acquistare nuove schede (sal¬ 
vo sull’Apple II Europlus, per il quale 
è necessaria la language card). La 
scheda di interfaccia utilizzata per col¬ 
legare al Dos 3.3 o all’Apple Pascal i 
floppy va benissimo anche per Pro¬ 




to 



a' 


Dos. Le applicazioni in Applesoft ri¬ 
chiedono un minimo di 64K di memo¬ 
ria Ram (cioè quella disponibile in un 
II Plus con language card, o un //e). 
ProDos si installa da solo nell’area del¬ 
la scheda, quando esiste. A differenza 
del Dos 3.3, ProDos è in grado di acce¬ 
dere e utilizzare la capacità e la veloci¬ 
tà di qualsiasi dispositivo di memoria 
accessoria, senza dover procedere a 
nuove configurazioni. Funziona anche 
con il ProFile. E’ sufficiente una sche¬ 
da ProFile, ma soprattutto gli stessi 
file del ProFile possono essere utlizza- 
ti con il Sos su un Apple III e con Pro¬ 
Dos su un Apple //. E infatti ProFile è 
ora disponibile anche per Apple//. La 
strategia ProDos è compatibile con 
Pascal nello stesso modo del Dos 3.3. 
ProDos deve essere visto, secondo la 
Apple, come il successore del Dos, 
insomma una sorta di Dos 4.0. Se si 
usa il Pascal perché lo si ritiene neces¬ 
sario, ProDos vi si adatta senza pro¬ 
blemi di sorta. 

Le novità della casa di Cupertino 
non si fermano qui. Già in ProDos, la 
Apple presenta infatti un programma 
rivoluzionario, nel quale word proces¬ 
sing, archiviazione e calcolo su fogli 
elettronici, le tre applicazioni più dif¬ 
fuse del personal, sono disponibili su 
un unico pacchetto applicativo che è 
stato battezzato Apple Works in Usa, 
e in Italia Tre per te. E non si tratta 
certo di versioni ridotte. L’area calco¬ 
lo su fogli elettronici prevede la crea¬ 
zione di fogli elettronici di grandi di¬ 
mensioni (999 righe di 127 colonne cia¬ 
scuna). La precisione dei calcoli è a 15 
cifre, la larghezza delle colonne è sele¬ 
zionabile, come pure il formato di rap¬ 
presentazione dei dati. Chi utilizza il 
VisiCalc (il programma della Visi- 
Corp) potrà utilizzare i modelli già svi¬ 
luppati trasferendoli automaticamen¬ 
te nel nuovo programma. Il program¬ 
ma di archiviazione è simile al Quick 
File della Apple. E’ possibile generare 
schede di informazioni che gestiscano 
dati alfabetici, numerici, le date e gli 
orari. I dati sono direttamente gestiti 
nella memoria interna, ciò permette di 
ottenere ordinamenti veloci, ad esem¬ 
pio per 800 schede bastano 10 secondi. 



I dati possono essere stampati in for¬ 
ma di tabulato o etichette per indirizzi. 

II word processing prevede funzioni 
come la ricerca e correzione automati¬ 
ca, la spaziatura proporzionale e la 
stampa in neretto. Ma Tre per te è più 


della somma di questi tre programmi, 
poiché la loro integrazione consente di 
passare informazioni dall’uno all’al¬ 
tro, senza cambiare dischetto. I co¬ 
mandi in tastiera, sono gli stessi, fatto 
che riduce i tempi di apprendimento, 
aumentando la praticità. 

Il Tre per te disponibile per Apple 
/// è stato sviluppato dalla Haba Sy¬ 
stem Ine. di Van Nuys, California, una 
società di sviluppo software e periferi¬ 
che compatibili Apple, e prende il no¬ 
me di Ili E-z Pieces e sarà disponibile 
in Italia nel mese di febbraio. La ver¬ 
sione per Apple //e del Tre per te sarà 
disponibile nel mese di aprile 1984 di¬ 
rettamente dalla Apple Computer e 
richiede una configurazione compren¬ 
dente oltre all’unità centrale da 64 Ki- 
lobyte, la scheda 80 colonne, una unità 
per dischetti flessibile e un monitor. 

La Apple ha anche annunciato per 
aprile Backup //, un’utility che per¬ 
mette di ottenere in modo semplice e 
sicuro copie dei propri archivi su di¬ 
sco. Per quanto riguarda l’hardware, 
sono due le novità ed entrambe nel 
campo delle periferiche. La prima è 


costituita da Duodisk, la nuova doppia 
unità di lettura e scrittura per floppy 
da 5 pollici e un quarto. Più compatto 
e meno costoso, Duodisk sostituisce il 
modello Disk //, che resterà disponibi¬ 
le per chi desidera acquistare una sola 


unità. Il design di questo nuovo lettore 
è conforme alla linea di Apple //e e ne 
consente una elegante sistemazione 
fra il monitor e l’unità centrale. Il 
Duodisk è compatibile con i program¬ 
mi applicativi per Apple //e e offre un 
miglior rapporto prezzo-prestazioni in 
confronto alle unità singole. 

La seconda novità è una modernissi¬ 
ma stampante ad aghi di elevate pre¬ 
stazioni. Meno rumorosa (53 decibel), 
più veloce (180 caratteri al secondo) e 
più definita (160 caratteri per pollice) 
la nuova stampante Apple sostituirà, a 
partire daH’esaurimento delle scorte, 
la precedente. Il collegamento è di ti¬ 
po seriale con standard RS-232-C, il 
che permette la connessione, senza al¬ 
cuna scheda aggiuntiva, di Apple ///, 
Lisa e Macintosh. Una scheda è invece 
necessaria per Apple //e. La nuova 
stampante consente una risoluzione 
grafica variabile da 72 a 160 punti per 
pollice e nella stampa di testi può con¬ 
tenere da 10 a 17 caratteri per pollice. 
La spaziatura delle linee è variabile da 
1/6 a 1/444 di pollice, è prevista anche 
la stampa proporzionale. 
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applicando 


Macintosh: un piccolo gioiello. E Applicando io regala. A 
chi? A uno dei suoi abbonati. Come fare per vincerlo? 
Basta abbonarsi o rinnovare l’abbonamento: il Mac 
messo in palio da Applicando sarà estratto a sorte tra tutti 
coloro che risulteranno abbonati alla data del 15 giugno 
1984. Un motivo in più per abbonarsi o rinnovare subito 
l’abbonamento alla rivista di chi applica. 




ooU U U U . 





gratis, se ti abboni subito! 


Un dischetto con tre utilissimi superprogrammi e la 
la Facili^ Card Applìcard che, fra gli altri vantaggi 
darà diritto a sconti su programmi che verranno 
offerti da Applicando. Compila e spedisci 
subito questo tagliando a: 

Editronica, C.so Monforte39, 

20122Miiano. 


Applicando è bimestrale. 
Per applicare con noi 
abbonati inviando il 
coupon a 
Editronica s.r.l., 

C.so Montone 39, 
20122 Milano. 

Oppure acquistalo: 
nei migliori 
Computer Shop. 




Sì, mi abbono! 


1 / 


inviatemi sei numeri di Applicando, il dischetto 
con i tre programmi gratis, e la carta Applicard. 

□ Allego assegno non trasferibile di lire 30 mila intestato 

a Editronica S.r.l. 

□ Allego ricevuta di versamento di lire 30 mila sul conto 
corrente postale n. 19740208 intestato a Editronica s.r.l. 
C.so Monforte 39,20122 Milano. 

□ Pago fin d’ora lire 30 mila con la mia carta di Credito 

BankAmericard numero . 

scadenza . 

autorizzando la Banca d’America e d’Italia ad 
addebitare l’importo sul mio conto BankAmericard. 


Cognome . 
Nome. 


. Città 


Data. 


Firma . 


Desidero che il mio abbonamento 
abbia inizio con il n°. 











































Piccolo e maneggevole, portatile, riunisce in sé tutto quello che 
serve a un manager. Sul suo schermo 
appaiono archivio, agenda, matite, orologio sveglia 
e perfino il cestino della carta straccia. E per imparare a usarlo 
bastano davvero pochi minuti: grazie al mouse... 

Come un telefono 



«Amo tutti i miei prodotti: Macin¬ 
tosh, però, è il migliore che abbia mai 
progettato», ha detto ad Applicando 
Steve Jobs, il fondatore della Apple. 
«Mac rappresenta la terza pietra milia¬ 
re nella storia del personal computer 
dopo Apple // nel 1977 e il PC Ibm nel 
1981». Macintosh naturalmente è il 
nuovo rivoluzionario personal di Ap¬ 
ple, presentato il 24 gennaio contem¬ 
poraneamente in Europa e negli Stati 
Uniti. 

Nella nuova strategia disegnata da 
John Sculley, Tamministratore dele¬ 
gato strappato da Jobs alla Pepsi-Cola 
nell’aprile scorso con l’offerta del fan¬ 
tastico stipendio di un milione di dolla¬ 
ri l’anno, il compito di Macintosh è 
quello di dare battaglia in un mercato 
ancora relativamente vergine: quello 
dei manager, dei piccoli industriali, 
dei professionisti che non si sono anco¬ 
ra avvicinati all’informatica. 

«Anche in Italia ormai», dice Fran¬ 
co del Vecchio, direttore marketing 
della Apple Italia, «chi si intende di 
computer, i manager che usano il per¬ 
sonal per lavoro ma anche per hobby, 
quando devono acquistare o cambiare 
macchina fanno cadere la loro scelta 
quasi sempre su un Apple Ile. Chi an¬ 
cora non usa il computer e soprattutto 
quelli che desidererebbero lavorare 
con un computer ma ne sono intimoriti 
non hanno più ostacoli perché Macin¬ 
tosh risolve brillantemente ogni resi¬ 
stenza tecnica, culturale, psicologica. 
Eppoi non è molto più ingombrante di 
un telefono né più difficile da usare». 

La caratteristica più rivoluzionaria 
di Macintosh, che ormai già tutti chia¬ 
mano affettuosamente Mac (a propo¬ 
sito, Macintosh è il nome di una quali¬ 
tà di piccole, saporite e profumate me¬ 
le della California), è di riuscirne a 
imparare il funzionamento in poco 
meno di trenta minuti. Mac è anche il 
primo personal pensato per tutti e di 
conseguenza progettato per essere co- 
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Le doti in sintesi 

Configurazione: 

video-disk driver integrati + tastiera e stampante 

Prezzo: 

L. 

Disponibilità: 

a partire da maggio 

Ram: 

128 Kbyte 

Rom: 

64 Kbyte 

Microprocessore: 

Motorola MC 68000 a 32 bit 

Dischi: 

floppy Sony da 3 pollici e 1 /2 

Schermo: 

9 pollici ad alta risoluzione (512x342 pixel) 

Uscite: 

stampante, unità dischi esterna, Applebus RS232 

e 422 e modem 


struito in milioni di unità. Fino al pun¬ 
to che un esemplare può essere assem¬ 
blato in 27 secondi. 

Ma è soprattutto la particolare filo¬ 
sofia del suo software che ne fa qualco¬ 
sa di estremamente diverso dagli altri 
personal computer. Al pari del fratello 
maggiore, il personal Lisa, Macintosh 
è un elaboratore user friendly, costrui¬ 
to cioè per venire incontro alla logica 
dell’uomo e non dei chip al silicio. Sul 
video viene simulato il piano di lavoro, 
la scrivania: con la calcolatrice, l’agen¬ 
da, il cestino per la carta straccia, l’o¬ 
rologio con l’ora esatta (un’alimenta¬ 
zione autonoma provvede a non farlo 
fermare mai), e tutti gli strumenti di 
lavoro. 

Il programma per impaginare testi e 
disegni, per esempio, visualizza sotto 
e a lato dello spazio dove compare il 
disegno, i differenti fondini da usare, i 
caratteri, perfino i pennelli, in modo 
da ricreare il tavolo di disegno di un 
grafico. Per lavorare con Macintosh 
non c’è bisogno di ricordarsi il signifi¬ 
cato dei comandi o di altre più o meno 
complesse procedure; tutto è presente 
sul video. 

Simboli grafici e parole scritte in ita¬ 
liano indicano le possibili opzioni e il 
mouse (il topolino) permette di rag¬ 
giungerle e usarle. Come? Dice Del 
Vecchio: «Invece di allungare la mano 
per prendere un foglio o un dossier 
basta spostare il mouse sulla scrivania 
come se fosse un’estensione della ma¬ 
no per raggiungere il simbolo o l’op¬ 
zione desiderata». 

Il mouse (che è in dotazione già su 
Lisa e sarà disponibile anche per Ap¬ 
ple// e Apple///) rappresenta una vera 
rivoluzione nel software. Concettual¬ 
mente è molto simile alla cloche pre¬ 
sente nei videogiochi, anche se per 
motivi ergonomici si è scelta una di¬ 
versa soluzione tecnica. Con piccoli 
movimenti della mano si fa muovere 
una freccina sul video. Ecco che cosa 
succede in pratica. 

Ciascuna delle parole scritte nella 
parte alta dello schermo e la mela è un 
contenitore, simile ai raccoglitori che 



molti hanno sulla scrivania: basta rag¬ 
giungerli con la freccia guidata col 
mouse e schiacciare il bottone del 
mouse per aprirli. Ognuno mostrerà 
un menù, che comparirà sul video in¬ 
sieme con i testi, i simboli e le immagi¬ 
ni presenti in quel momento. Scorren¬ 


do le opzioni di questo menù con la 
freccia si potrà scegliere la funzione 
desiderata. 

Molti tengono l’orologio sull’angolo 
della scrivania: su Macintosh si può 
tenere su un lato del video, da parte, in 
vista mentre si batte un testo, si elabo- 


15 
























16 














































































































































é File Ldit Searcti format 1 uiits Sli|le 


Itameiiio 
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MMM 


Questo e MacWriteJI Word Processor di 


Scrivendo con MacWrite pyxsià scegliere un ampia 
Igamma di ©SiPaSSsffS (anche caratteri ;Da 


come oe®'V e“\<a‘...©à(5‘ll*3'? e cCE0”(r§£ (.cambiare le 
iim^Tisioni di essi e lo aSflUSaUsare un ampia serie di 
opzioni ma soprattutto, tagliare un disegno in 
MacPaint e incollarlo sul loglio di MacWrite così: 


tt||MMIti es 
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.4BL:DEFijHIJKLrnnOPQP.STl 1 

abcdefghijklmnopqrstuvwxyz ABCDE 
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ra una proiezione, o si fa un disegno. 

Mac è dotato di programmi che ne 
sfruttano sapientemente le capacità 
grafiche: il word processing (si chiama 
MacWrite) offre oltre a tutte le perfor¬ 
mance degli altri programmi per Ap¬ 
ple la possibilità di visualizzare sullo 
schermo non solo la grandezza del ca¬ 
rattere desiderato ma anche il suo sti¬ 
le. Si potrà quindi riprodurre una inte¬ 
ra pagina con titoli e testi di grandezza 
e caratteri diversi. 

Il programma di grafica permette di 
creare qualunque disegno partendo da 
forme base che possono essere amplia¬ 


te, deformate e soprattutto arricchite 
con oltre 20 retini diversi. I disegni poi 
possono essere trasferiti nel bel mezzo 
di un testo. 

Rispetto a Lisa, Mac offre principal¬ 
mente due vantaggi: le dimensioni li¬ 
mitate, quasi come un comune telefo¬ 
no, che ne consentono l’uso senza in¬ 
gombrare la scrivania sulla quale si la¬ 
vora tutti i giorni e il prezzo. Anche se 
non è stato ancora definitivamente de¬ 
ciso, nella configurazione tastiera¬ 
video, un disk-driver e la stampante 
Mac non supererà il tetto di 5 milioni e 
mezzo di lire. 
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Piccolo, compatto e snodato (la ta¬ 
stiera è indipendente), Mac ha il video 
in bianco e nero da nove pollici e un 
microprocessore a 32 bit, il Motorola 
MC 68000, il più veloce oggi esistente. 
La memoria Ram consente di avere 
sempre disponibili 128 Kbytes. I di¬ 
schetti usati da Mac sono quelli da 3 
pollici e mezzo (i Sony); più manegge¬ 
voli e robusti di quelli tradizionali con¬ 
tengono dati per 420 Kbytes. 

Mac, collegato alla nuova stampan¬ 
te ad aghi, la Image Printer, è in grado 
di riprodurre esattamente tutto quello 
che appare sullo schermo, grafici e di¬ 
segni compresi. I programmi imme¬ 
diatamente disponibili sono due, tutti 
in italiano, il già citato MacWrite per il 
word processing, e MacPaint. 

MacPaint si presenta come il tavolo 
di lavoro di un disegnatore. In bell’or¬ 
dine sul lato dello schermo stanno il 
pennello, la matita, la gomma, i fondi¬ 
ni, ecc. Basta raggiungere un simbolo 
con la freccia e portarlo nella zona del 
foglio desiderata; schiacciando il pul¬ 
sante del mouse si aziona lo strumento 
selezionato: la matita scriverà, la gom¬ 
ma cancellerà, mentre il pennello di¬ 
pingerà con il fondino prescelto. 

Il simbolo di una piccola mano sul 
video permette di muovere. Un’altra 
funzione dà la possibilità, come in un 
caleidoscopio, di moltiplicare un dise¬ 
gno creando effetti speciali di grande 
valore suggestivo, o, più praticamen¬ 
te, di copiare specularmente un’imma¬ 
gine (l’altra metà di un vaso, o di un 
disegno tecnico ecc.). 

Tutte le maggiori softwarehouse 
americane e italiane, dalla Microsoft 
alla Lotus (l’autrice di 1-2-3, uno dei 
programmi più venduti l’anno scorso e 
tuttora nelle prime posizioni nella gra¬ 
duatoria dei listati), alla Software Pu- 
blishing (è di questa casa la famosa 
serie), alla Apple stanno lavorando 
alacremente per potenziare il numero 
dei programmi. Entro maggio, quan¬ 
do Macintosh sarà in vendita anche in 
Italia, saranno molto probabilmente 
disponibili MacTerminal e MacPro- 
ject (della Apple); Multichart, Multi- 
file di altre case, mentre molti altri 
sono già stati annunciati. 
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MOUSE 



Da oggi usare il tuo APPLE è ancora più 
facile e divertente, È arrivato il Mouse. 

E insieme al Mouse è arrivato anche il 
programma Paint che ti consentirà di di¬ 
segnare, scrivere testi, rielaborare dise¬ 
gni creati con altri programmi, il tutto sfrut¬ 
tando al massimo le possibilità grafiche 


del tuo APPLE. E poi potrai sempre inseri¬ 
re con facilità l’utilizzo del Mouse nei pro¬ 
grammi che crei tu per risolvere meglio i 
tuoi problemi. Inoltre c’è una piacevole 
sorpresa: un prezzo veramente OK. 

Vai dal tuo rivenditore, c’è un nuovo ami¬ 
co per il tuo amico APPLE. 



qpplG computGr 


Per far crescere il tuo personal. 


Apple Computer S.p.A. 

Via Bovio, 5 (zona ind. Mancasale) - 42100 Reggio Emilia (Italy) - Tel. 0522/32643-4-5-6 511507 511007 - Telex 530173 IRETRE I 
Milanofiori Palazzo Q 8 - 20089 Rozzano (MI) - Tel. 02/8242156-7-8-9 
Via Parigi, 11 - 00185 ROMA - Tel. 06/4756640 








Queste due pagine non 
^^■^sostituiscono i manuali. Ma possono 
bastare per copiare 
e usare i programmi di Applicando. 


Come si fa 
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N uovi lettori, siate i benvenuti. 

Queste pagine sono per voi, e le 
ripeteremo ad ogni numero per facili¬ 
tare il primo incontro con Applicando 
e con il mondo di Apple. Ovviamente 
queste righe non intendono sostituire i 
manuali, dei quali consigliamo calda¬ 
mente la lettura, ma possono bastare 
per chi intende soltanto utilizzare i 
programmi che pubblichiamo, copiar¬ 
li, salvarli su dischetto e farli partire. 

Cominciamo con qualche rapidissi¬ 
ma premessa su Apple//. Quando ac¬ 
cendete per la prima volta il vostro 
Apple con un dischetto già inserito nel 
drive, in linea di massima dovreste ve¬ 
der comparire sullo schermo il segno 
chiamato cursore, o prompt, in 
inglese. La sua presenza significa che 
potete fare una di queste tre cose: 

1) Fornire al computer comandi de¬ 
stinati al drive (per esempio CATA- 
LOG mostra il contenuto del dischet¬ 
to, se si tratta di un dischetto in Basic). 

2) Fornire comandi nella versione 
per Apple del linguaggio Basic (e cioè 
l’Applesoft Basic). 

3) Battere sulla tastiera righe di pro¬ 
grammi in Applesoft Basic. 

Per copiare un programma da Ap¬ 
plicando potrà essere necessario fare 
tutte e tre le cose. 

Per battere un programma 
di Applicando 

Per prima cosa sarà opportuno leg¬ 
gere fino in fondo l’articolo che ac¬ 
compagna il programma. Può darsi 
che non capirete proprio tutto la prima 
volta: non preoccupatevene, in segui¬ 
to diventerà facilissimo. Cercate so¬ 
prattutto le eventuali istruzioni che 


spiegano se occorre fare qualcosa di 
particolare per battere il programma. 
In ogni caso assicuratevi di aver pron¬ 
to un dischetto già inizializzato per po¬ 
ter salvare quel che avrete battuto. Per 

1 dettagli su come inizializzare un di¬ 
schetto vergine, guardate i manuali; 
chi proprio ai manuali fosse allergico, 
faccia così: a Apple spento inserisca il 
dischetto System Master nel drive 1, e 
accenda il computer; quando il drive 
avrà smesso di girare (lueina rossa di 
nuovo spenta), tolga il System Master 
dal drive e inserisca al suo posto un 
dischetto sicuramente vergine e sicu¬ 
ramente mai usato (attenzione: si pos¬ 
sono ri-inizializzare anche dischetti già 
usati, ma il loro contenuto va irrime¬ 
diabilmente perso); ora basta battere 
NEW, Return, e poi INIT HELLO, 
sempre seguito da Return. 

Tutti i programmi in Basic consisto¬ 
no di una sequenza di righe di istruzio¬ 
ni. Tutte le righe sono numerate all’i¬ 
nizio, e possono contenere una o più 
istruzioni. Se le istruzioni sono più 
d’una, esse saranno separate da segni 
di due punti (:). Per esempio: 

2 0 FOR J=1 TO 5:PRINT 
CHR$(7):NEXT J 

Per copiare da Applicando un pro¬ 
gramma, inserendolo nel vostro Ap¬ 
ple, occorre assicurarsi che la memo¬ 
ria operativa del computer sia vuota 
battendo NEW Return (questa istru¬ 
zione non cancella nulla di ciò che è 
registrato sui vostri dischetti: libera 
soltanto la memoria del computer dal¬ 
l’ultimo programma usato), ed è ne¬ 
cessario poi battere i listati così come 
sono stampati, riga per riga, compresi 


i numeri di riga, battendo Return solo 
quando si arriva al numero di riga suc¬ 
cessivo. Quando sarà stata copiata an¬ 
che l’ultima riga e l’ultimo Return (a 
fine riga), si potrà salvare il program¬ 
ma su dischetto (il dischetto che avrete 
inizializzato, o un altro già inizializza¬ 
to in precedenza su cui ci sia spazio 
libero a sufficienza). Per salvarlo ba¬ 
sterà battere il comando SAVE, segui¬ 
to dal nome che intendete dare al pro¬ 
gramma che avete trascritto. Questo è 
tutto, ma vediamo passo per passo un 
esempio. 

10 REM CAMPANELLO 
20 FOR J = 1 TO 5:PRINT 
CHR$(7):NEXT J 
30 END 

Listato 1 


Per battere il semplice programma 
Campanello del listato 1 (produce solo 
un suono simile a quello di un campa¬ 
nello, null’altro), si seguirà questa se¬ 
quenza: 

1) Battete NEW Return per cancel¬ 
lare dalla memoria qualsiasi program¬ 
ma precedentemente usato. (Se state 
lavorando su un Apple//e assicuratevi 
che il tasto CAPS LOCK, il primo in 
basso a sinistra, quello che permette di 
ottenere tutte maiuscole, sia schiac¬ 
ciato). 

2) Battete la linea 10 esattamente 
com’è stampata e premete il tasto Re¬ 
turn solo alla fine dell’ultima parola 
(CAMPANELLO). 

3) Battete allo stesso modo anche le 
linee 20 e 30. 

4) Con un dischetto già inizializzato 
nel drive (nel drive 1, se ne avete due). 
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battete SAVE CAMPANELLO Re¬ 
turn, per registrare il vostro program¬ 
ma su dischetto. 

5) Poiché il vostro programma è an¬ 
cora nella memoria del computer, per 
farlo girare basterà battere RUN Re¬ 
turn. Se cancellate la memoria facen¬ 
do girare un altro programma o spe¬ 
gnendo il computer, per usare nuova¬ 
mente il programma occorrerà inseri¬ 
re il dischetto nel drive e battere RUN 
CAMPANELLO Return. 

Alcuni suggerimenti 

I suggerimenti che seguono possono 
rendere il lavoro di trascrizione un po’ 
più facile: 

1 ) Se commettete un errore di batti¬ 
tura in una riga e non avete ancora 
premuto il tasto Return, basterà tor¬ 
nare indietro con la freccetta sinistra, 
correggere l’errore, e tornare al punto 
in cui eravate con la freccetta destra, 
premendo Return come al solito solo a 
completamento dell’intera riga. Se in¬ 
vece vi accorgete dell’errore quando 
ormai avete premuto Return e siete 
passati a un’altra riga, completate 
tranquillamente la riga che state scri¬ 
vendo, compreso il Return finale; poi 
ribattete la riga in cui avete commesso 
l’errore: ribattetela per intero, con nu¬ 
mero di riga e tutto il resto, e la nuova 
versione prenderà automaticamente il 
posto della vecchia. 

2) Siate particolarmente attenti a 
non commettere errori di trascrizione 
nelle righe in cui compare l’istruzione 
DATA. Nelle altre istruzioni un even¬ 
tuale sbaglio è più facile da individua¬ 
re, perché penserà eventualmente il 
computer a segnalarlo in seguito, nelle 
istruzioni DATA questo invece non 
avviene. 

3) Salvate periodicamente il pro¬ 
gramma mentre procedete, per mini¬ 
mizzare i guai di un’eventuale interru¬ 
zione di corrente. Se non avete tempo 
per trascrivere tutto il programma, 
trascrivete fin dove potete o volete 
(ma comunque completando fino al 
Return la riga che state battendo), poi 
salvatelo su dischetto come se aveste 
finito. Per riprendere a trascrivere sa¬ 
rà sufficiente inserire il dischetto nel 
drive, accendere il computer, e batte¬ 
re LOAD seguito dal nome che avete 
dato al programma, e da Return (bat¬ 
tete CATALOG se non ricordate più 
con che nome avete salvato il pro¬ 
gramma). La luce rossa sul drive si 
accenderà, e il vostro programma ver¬ 
rà caricato nella memoria operativa 
del computer. A questo punto battete 
LIST, e vedrete scorrere sullo scher¬ 


mo tutta la parte del programma che 
avevate già battuto. Continuate ades¬ 
so tranquillamente dal- punto in cui 
avevate interrotto. 

4) Prima di effettuare modifiche o 
aggiunte, trascrivete l’intero program¬ 
ma e fatelo girare per prova. Questo 
renderà più facile la ricerca di even¬ 
tuali errori, isolando quelli commessi 
durante la battitura e la .trascrizione. 
Non preoccupatevi per il numero di 
errori di trascrizione che farete: è nor¬ 
male. Il computer vi segnalerà, riga 
per riga, dove avete sbagliato. Basterà 
a questo punto controllare la riga, in¬ 
dividuare l’errore commesso e ribatte¬ 
re correttamente l’intera riga. A que¬ 
sto punto occorre salvare di nuovo il 
programma su dischetto. 

5) Le lettere minuscole possono es¬ 
sere usate solo all’interno di comandi 
che includono REM o tra virgolette. 

Programmi in 
linguaggio-macchina 

Il Basic e il Dos sono ottimi linguag¬ 
gi, ideati apposta per rendere più faci¬ 
le la programmazione, ma l’Apple è in 
grado di ricevere comandi anche in un 
codice molto più vicino alla sua logica 
chiamato linguaggio-macchina. Il lin¬ 
guaggio-macchina è un po’ la lingua- 
madre dell’Apple, un programma così 
composto sarà quindi compreso dal 
computer molto più velocemente di un 
programma scritto in Basic. Per creare 
programmi in questa lingua si usa 
spesso un programma chiamato As¬ 
sembler. L’Assembler permette al 
programmatore di scrivere in un codi¬ 
ce più facile del linguaggio macchina: 
l’assembly. In un secondo momento il 
programma stesso si tradurrà in lin¬ 
guaggio-macchina. L’Apple infatti 
non conosce l’assembly. 

Molti dei programmi che troverete 
su APPLICANDO saranno scritti in 
ambedue le versioni: assembly e lin¬ 
guaggio-macchina; in questo modo 
potrete inserire le istruzioni diretta- 
mente in linguaggio-macchina, senza 
dovervi procurare il programma As¬ 
sembler. In questo caso le istruzioni 
dovranno essere inserite direttamente 
nel System Monitor (da non confonde¬ 
re col monitor video); per raggiungere 
il System Monitor è sufficiente battere 
CALL-151 e schiacciare il tasto Re¬ 
turn. A questo punto sullo schermo 
comparirà un asterisco (*) che indica 
che è stato raggiunto il contatto con il 
System Monitor. Per inserire i listati 
scritti in linguaggio macchina occorre¬ 
rà allora battere, per esempio, i se¬ 
guenti comandi: 
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LISA LA NUOVA WORKSTATION 
APPLE CHE SI PROIETTA 
NELL’OFFICE AUTOMATION FUTURE 

NEI NOSTRI COMPUTER SHOP... 



APPLE III potenziato 
con nuove periferiche 



APPLE Ile il nuovo 
personal inimitabile 



Drive 5" e 8" floppy 
e Winchester fino a 20 MB 



Monitor monocromatici 
e colori ad alte risoluzioni 


Stampanti a margherita 
e aghi veloci e silenziose 


Plotter professionali 
a più colori e formati 



Supporti magnetici e 
accessori di qualità 



Modulistica stampati 
libri e letterature 
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AUTORIZZATO DI 
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DISTRIBUZIONE PER L'ITALIA 



UNA MELA DI 600 MQ. 
DI PROFESSIONALITÀ 


CENTRO AUTORIZZATO DI ASSISTENZA 
TECNICA 


LEASING RATEAZIONI E CREDITO 
PERSONALE 


CORSI DI INTRODUZIONE ALL’EDP E BASIC 


VASTISSIMA LIBRERIA DI SOFTWARE 
ED APPLICAZIONI 


QUALIFICATO TEAM DI ANALISTI 
PROGRAMMATORI PER LA 
RISOLUZIONE DEI VOSTRI PROBLEMI 


SPECIALIZZATI IN 
APPLICAZIONI MUSICALI 
COMPUTERIZZATE 




1 *RINGER PROGRAM 

2 ORG $300 

3 BELL EQU AFBDD 

0300: A2 05 4 LDX L$55 

0302; 20 DD FB5 LOOP JSR BELL 
0305: CA 6 DEX 

0306; FO 03 7 BEO END 

0308: 4C 02 03 JMP LOOP 

0308; 60 9 END RTS 


Listato 3 


300: A2 05 20 DD FB CA FO 03 4C 02 
03 60 Return 

In questa serie di istruzioni il ‘300’ 
indica una locazione di memoria e i 
due punti dicono all’Apple di inserire i 
seguenti numeri (A2 e gli altri numeri 
in base 16) in quella locazione. I nu¬ 
meri sono in base 16 (esadecimale); 
non è necessario saper calcolare con 
questa base per trascrivere i program¬ 
mi in linguaggio macchina, ma è im¬ 
portante sapere che in questo tipo di 
linguaggio i numeri sono dati sempre 
in esadecimale. 

Un esempio: 

Facciamo un breve esempio di pro¬ 
gramma scritto in linguaggio macchi¬ 
na. Il seguente listato serve a indirizza¬ 
re alcuni dati in una particolare loca¬ 
zione di memoria: 

300.30B 

0300-A2 05 20 DD FB CA FO 03 
0308-4C 02 03 60 

Listato 2 

I numeri a sinistra delle lineette (at¬ 
tenzione: le lineette non vanno digita¬ 
te, al loro posto occorre battere un 
“due punti”) sono le locazioni di me¬ 
moria, vale a dire gli indirizzi dello 
spazio di memoria in cui il dato dovrà 
essere conservato, e i numeri seguenti 
sono il contenuto, i dati da memoriz¬ 
zare nelle sette locazioni di memoria 
indicate. I due numeri separati da un 
punto presenti nella prima riga indica¬ 
no gli indirizzi iniziali e finali della par¬ 
te di memoria considerata. Questo 
programma è la traduzione del listato 
numero tre, scritto in assembly. Come 
si noterà le colonne a sinistra sono 
molto simili al listato numero due, 
contengono infatti le locazioni di me¬ 
moria, mentre la parte a destra contie¬ 
ne istruzioni in assembly. Esistono di¬ 
versi programmi assembler e diverse 
disposizioni dei listati, ma in tutti sono 
presenti queste due diverse colonne. 


Per inserire i listati nella macchina è 
sufficiente eseguire le seguenti opera¬ 
zioni: 

1) Digitare CALL-151 Return per en¬ 
trare in contatto con il System Moni¬ 
tor, poi inserire la locazione di memo¬ 
ria, i due punti e il contenuto della 
memoria; nel caso del listato numero 
due ad esempio si digiterà: 

300: A2 05 20 DD FB CA FO 03 Return 
308: 4C 02 03 60 Return 
Un programma in Assembler sarà 
invece così inserito: 

300:A2 05 Return 
302:20 DD FB Return 

305 :CA Return 

306 :F0 03 Return 
308:4C 02 03 Return 
30B:60 Return 

State attenti a non inserire lo spazio 
tra i due punti e il primo numero se¬ 
guente, mentre invece bisogna mette¬ 
re lo spazio fra le coppie di numeri. 

2) Una volta inserito l’intero listato, 
schiacciate CTRL-C Return per tor¬ 
nare al livello BASIC indicato dal 
segno‘]’. 

3) Al contrario dei programmi in BA¬ 
SIC che iniziano nella stessa locazione 
di memoria, e che possono essere sal¬ 
vati con un semplice SAVE, i pro¬ 
grammi scritti in linguaggio macchina 
possono iniziare in diversi punti della 
memoria. Per salvare listati o dati in 
linguaggio macchina si dovrà indicare 
quindi la locazione di memoria del 
programma da salvare: per il program¬ 
ma usato prima come esempio, il co¬ 
mando sarà: 

BSAVE RINGER, A$300, L$C 

4) Per rivedere il listato che avete tra¬ 
scritto basterà battere 300.30B, e sullo 
schermo si riprodurrà tutto ciò che 
avete battuto. Per ottenere una copia 
sulla stampante, basterà battere PR # 
Return e poi ancora 300.30B Return. 
Le correzioni si fanno ribattendo solo 
la riga contenente eventuali errori. 

5) Per far girare il programma basterà 
allora digitare BRUN RINGER, sen¬ 
za l’indirizzo. 


y 
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Ora per ora, Apple II ricorderà i vostri impegni 
^^^^i un anno intero, memorizzando fino a 15 appunti al giorno... 

Cosa c’è in agenda 



E arrivato il momento di eliminare 
dalla scrivania l'agenda e di affi¬ 
dare un nuovo compito al nostro Ap¬ 
ple: sarà lui d’ora in poi a tenere l’a¬ 
genda dei nostri impegni. Purché non 
siano più di 15 al giorno. 

Il programma è scritto in Apple¬ 
soft, e l’impiego della stampante è fa¬ 
coltativo, adatto quindi a chi sta ini¬ 
ziando a mettere insieme il suo siste¬ 
ma. Tutti i risvolti del programma so¬ 
no gestiti dal menù, per agevolarne il 
più possibile l’utilizzo. Questa caratte¬ 
ristica, combinata con l’impiego della 
routine ONERR GOTO, rende il pro¬ 
gramma praticamente a prova di 
bomba. 

Quando lo eseguiamo per la prima 
volta il programma “agenda persona¬ 
le” chiede di introdurre un codice di 
sicurezza di quattro caratteri. Il codice 
immesso viene memorizzato nel file 
denominato LOCK (blocco, protezio¬ 
ne); a ogni successiva esecuzione, il 
programma vorrà sapere il codice di 
sicurezza prima di permettere l’acces¬ 
so ai file degli appunti. Dopo tre tenta¬ 
tivi errati il programma sparirà dalla 
memoria RAM, salvaguardando così 
la riservatezza dei dati memorizzati sul 
dischetto. 

Inserito, per la prima volta, il codice 
di sicurezza, viene istituito un file di 
testo chiamato DATES (appuntamen¬ 
ti). AH’inizio il file DATES consterà 
di 366 record contenenti tutti il nume¬ 
ro “0”. Questi zeri indicano che non ci 
sono appunti in memoria; dopodiché il 
programma richiede la data corrente. 
La routine per introdurre la data e per 
controllare che l’introduzione sia cor¬ 
retta è reperibile nelle righe 310-370. 
Una volta introdotta la data corrente 
viene visualizzato il menù principale. 

AGENDA PERSONALE 

(1) LISTA MEMO ODIERNI 

(2) LISTA MEMO PER UNA DA¬ 
TA SELEZIONATA 

(3) AGGIUNTA MEMO ALL’A¬ 
GENDA 

(4) CANCELLAZIONE DI TUTTI 
IMEMO 

(5) FINE PROGRAMMA 
SCEGLINE UNO: 


L’opzione 1 consente di avere la li¬ 
sta degli appunti per la data corrente 
sullo schermo o sulla stampante. Se si 
decide di visualizzare gli appunti sol¬ 
tanto sullo schermo, ne verranno mo- 


18 REM 

20 REM « AGENDA PERSOf^LE * 

38 REM * BY RUOY A. GUY ^ 

40 REM « C0PYR1GHT(C)1984 =k 

50 REM ♦ BY APPLIC^DO » 

60 REM » & MICROSPARC INC * 

70 REM «^«««««««««««««««»«« 

80 TEXT ; HOME 

98 ONERR GOTO 9300 


strati tre alla volta. Dopo ogni seg¬ 
mento si può scegliere di cancellare 
singoli appunti o tutti gli appunti della 
data visualizzata. Con l’opzione stam¬ 
pante tutti gli appunti saranno visua- 


100 REM : INIZIALI22A VARIABILI 

110 0$ = CHR$ (4) ♦ 'OPEN DATES,L65'= CHR$ (4) ♦ 'URITE DATES,R';R$ = 
CHR$ (4) + "READ DATES R" 

128 om = CHR» (4) ^ ‘OPEN I^EM0S,L125’ :Ut« = CHW (4) + 'URITE MEMOS.R'iR 
1» = CHR$ (4) ♦ 'READ MBIOS.R' 

130 C$ = CHR$ (4) ♦ ’CLOSE* 

140 DIM M0$<12),DA(12),ME$(15),ME(15),TM(52),TD(52),TY(52),R(52),T1$(15),T 
2$(15).T3$(15),RE(15) 

150 GOSUB 9100 

160 PRINT CHR$ (4)"REr^E L0CK,L0CK" 

170 PRINT CHR$^4)"0PEN LOCK": PRINT CHR$ (4)"READ LOCK": INPUT SC$; PRINT, 
CHR$ (4)"CL0SE" 

180 VTAB 20; PRINT "»« COPYRIGHT (C) 1984, APPLIC^DO *»*": VTAB 18; PRINT 

"CODICE DI SICUREZZA? ;-HTAB PÉEK (36) - 3 

190 FOR I = 1 TO 4; 6ET A$: IF Ai = "" THEN TT = TT + 1; GOTO 220 
200 PRINT A$;;YN$ = YN$ ♦ A$; NE)rr ; IF YN$ < > SC$ THEN TT = H + 1: GOTO 
220 

210 GOTO 250 

220 IF n < 3 THEN YN$ = ""; HOME ; GOTO 180 

230 HOME : NEU 

240 REM : PAGIfW TITOLO 

250 T€XT ; HOME 
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lizzati prima sulla stampante e poi sul¬ 
lo schermo. In questo caso, ogni volta 
che un dato viene cancellato, il pro¬ 
gramma elabora automaticamente un 
nuovo stampato. Una volta visualizza¬ 
ti tutti i memo per la data in corso è 
possibile chiedere la lista di quelli del 
giorno seguente. 

Con l’opzione 2 il programma ri¬ 
chiede la data che si vuole visualizza¬ 
re, e poi agisce in modo identico. 

L’opzione 3 permette di introdurre 
nell’agenda nuovi appuntamenti. Ol¬ 
tre al giorno, il programma richiede 
l’ora per la quale l’appuntamento è 
previsto: va introdotta come un unico 
numero di quattro cifre, senza virgole 
o punti (per esempio: 1745 per le sei 
meno un quarto del pomeriggio, 0310 
per le tre e dieci del mattino). 

Se invece di digitare l’ora si batte un 
“Return”, l’appunto verrà memoriz¬ 
zato senza un orario specifico. Gli ap¬ 
puntamenti privi di assegnazione di 
tempo saranno elencati per ultimi al 
momento della consultazione. 

Per specificare il carattere dell’ap¬ 
puntamento o del tipo di dato da ricor¬ 
dare sono poi disponibili fino a un 
massimo di 120 caratteri per ogni me¬ 
mo. Per rendere possibile l’introdu¬ 
zione dei segni di virgola, due punti, 
punto e virgola e punto interrogativo è 
stata aggiunta una routine di lettura 
del buffer tastiera (linee 9530-9640). 
Per leggere il buffer tastiera si deve 
richiamare, la locazione di monitor 
$FD6A ( — 662), la subroutine 
GETLN. Di mano in mano che cia¬ 
scun tasto viene introdotto è memoriz¬ 
zato nel buffer d’introduzione da ta¬ 
stiera (input) in locazione da $0200 a 
$02FF (512-767 decimale). Quando si 
introduce un “Return” l’esecuzione 
del programma torna al BASIC a linea 
9600. Per trovare i dati memorizzati 
nel buffer viene usato un loop. La sub¬ 
routine legge con PEEK le locazioni di 
memoria da 512 a 633 e introduce in 
ME$ ogni singolo carattere. Se viene 
incontrato un “Return” l’esecuzione 
salta dal loop alla linea 9620 dove vie¬ 
ne controllata la lunghezza di ME$, 
per accertare che sia lungo 120 caratte¬ 
ri o meno. Qualora si interrompa l’in¬ 
troduzione di un memo l’esecuzione 
del programma tornerà al menù prin¬ 
cipale. 

L’opzione 4 del menù principale 
permette di cancellare tutti gli appunti 
memorizzati sul dischetto. Per evitare 
tragici errori, il programma avverte 
che una volta cancellate le informazio¬ 
ni non sono più recuperabili. Come 
ulteriore garanzia viene chiesto di in¬ 
trodurre il codice di sicurezza. Un er- 


260 VTAB 3; PRINT 


270 ÙTAB 4:A$ = ’-AGENDA PERSOTELE-'! 60SUB 8000 
280 A$ = • (C) APPLIO^DO 1984 ■; 60SUB 8000 
290 A$ = "CORSO HONFORTE 39, MIL^O"; 60SUB 8000 
300 IF FL = 1 THEN FL = 0: RETURN 

310 9TAB 20! PRINT "APPLIC^DO, LA RIVISTA SOLO PER APPLE"! VTAB 12! PRINT 
•INSERISCI LA DATA DI OGGI (rf1,GG,^)"! VTAB 13! HTAB 28! INPUT ""jMM, 
DD,YY 

320 IF Iti < 1 OR Iti ) 12 OR YY < 1 OR YY ) 99 OR DD < 1 THEN 250 
330 IF YY ./ 4 < ) INT (YY / 4) ^D rtl = 2 ^D DD > 28 THEN 250 

340 IF YY / 4 = INI (YY / 4) ^0 MM = 2 WD DD > 29 THEN 250 

350 IF MM < >2 THEN IF DD > DA(ltl) THEN 250 
360 IF LEN ( STRI (YY)) = 2 THEN YR$ = STRI (YY)! GOTO 380 

370 IF LEN 4 STRI (YY)) ( 2 THEN YR$ = "0" + STR$ (YY) 

380 G0SU6 9500 

390 POKE 34.8: HOME ! POKE 32.5: POKE 33.35: HOME 

400 PRINT "Mé RICERCA MENO DI OGGI"! PRINT ""2é RICERCA CON SELEZIONE": PRINT 
""3é INSERIMENTO"! PRINT ""4é CANCELLAZIONE": PRINT ""5é FINE" 

410 PRINT : PRINT "SCEGLI UN NUMERO GET Ai: PRINT A$! IF VAL (A$) ( 1 
OR VAL (A$) ) 5 THEN 390 

420 TE)a ! HOME !R = 0!TN = 0!TD = 0!TY = 0!ME$ = ""!PR = 0 

430 ON VAL (Ai) GOSUB 1010,3000,5000.7000.9000 

440 TE)(T ! HOME !FL = 1: GOSUB 250: GÓTO 390 

1000 REM RICERCA MEMO DI OGGI 

1010 TM = rfl!TD = DD:TY = YY: GOSUB 9010 

1020 PRINT Oi: PRINT RijR: INPUT ME: IF ME = 0 THEN PRINT C$!FL = 1; VTAB 
12: CALL - 958: VTAB 12: PRINT "NESSUN MEMO PER "NOKMM)" "DD", 19"YR 
$"."! VTAB 23: PRINT "BATTI UN TASTO QUALSIASI PER TORNARE AL MÉNU.";: 

GET Ai! PRINT : RETURN 

1030 FOR I = 1 TO ME: INPUT MEd): NE)a : PRINT Ci: IF PR THEN 1050 
1035 PRINT Ci! IF PR THEN 1050 

1040 VTAB 12: CALL - 958: VTAB 12: HTAB 13: PRINT "STAMPA ?(8/N)";! GET A 
i! PRINT ! IF Ai = "S" THEN PR = 1 

1050 HOME ! VTAB 12: HTAB 13: PRINT "LETTURA (S/N)"|! GET FFi: PRINT : IF 
FFi = "S" THEN 1060 

1051 IF FFi = "S" THEN 1060 

1052 IF FFi = "N" THEN 3090 

1060 FOR I = 1 TO ME: PRINT OMi: PRINT RMÌ:ME(I)!MEÌ(I) = "" 

1070 CALL - 662: FOR J = 512 TO 637!L = PEEK (J): IF L = 141 THEN 1090 

1080 L = L - 128:MEÌ(I) = MEÌ(I) ♦ CHRi (L): HBa J 

1090 NEXT l! PRINT Ci 

1100 IF ME ( 2 THEN 1190 

1110 FOR I = 1 TO ME - 1 

1120 FOR J = M 1 TO ME 

1130 IF LERi (MEÌ(I),4) ( = LERi (MEÌ(J),4) THEN 1170 
1140 Ti = MEÌ(I)!T = ME(I) 

1150 MEÌ(I) = MEÌ(J)!ME(I) = ME(J) 

1160 MEÌ(J) = TÌ!ME(J) = T 

1170 NE)a 

1180 NE)(T 

1190 IDCJ : HOME 

1200 IFPRTHEN PRINT CHRi (4);"PR£1"! PRINT CHRi (9);"80N"! REM STAM 
PA IN SLOT 1. 

1210 IF PR THEN PRINT "DATA 0DIER^W!•M0i(^t1)" "DD"jl9"YRÌ 
1220 IF AD ^D ?R THEN PRINT "MEMO PER ";M0Ì(TM)" RD",19":TYÌ 
1230 FOR I = 1 TO 10! IF R = HD(I) ANO PR THEN PRINT HDid): GOTO 1250 
1240 NE)(T 

1250 IF PR THEN GOSUB 5450: REM ST^PA 

1260 PRINT "DATA ODIERTW: "MOÌ(HI)" "0D",19"YRÌ 

1270 IF AD THEN PRINT "MEMO PER "|M0Ì(TN)" "TD".19":TYÌ 

1280 FOR I = 1 TO 10! IF R = HDd) THB^ PRINT HDidh GOTO 1300 

1290 NE)a 

1300 VTAB 4: PRINT " "!!FL = 1: GOSUB 5450 

1310 VTAB 5 

1320 FOR I = 1 TO ME: INVERSE : PRINT "MEMO £";l! NOW^L : PRINT Tlid)":" 

T2Ì(I);T3Ì(I):! GOSUB 9700: PRINT 
1330 IF I / 3 = INT (I / 3) ^D I < ) ME THEN GOSUB 1440 

1340 HOa ! GOSUB 1440: TEXT : HOME 

1350 IF AD THEN AD = 0! RETURN 

1360 VTAB 12: PRINT "VUOI IL MEMO DI DOTW^I ?(S/N)"|! GET Ai: PRINT Ai: IF 
Ai = "N" THEN RETURN 

1370 TD = TD 4 1 ! IF TO ) DA(TM) THEN TD = 1 !TM = TM 4 1 : IF TM = 3 ^D TY / 

4 ( > INT (TY / 4) THEN R = R 4 1 

1380 TYi = YRi 

1390 IF TM ) 12 THEN TM = LTY = TY 4 LTYi = STRi (TY): IF LEN (TYi) < 

2 THEN TYi = "0" 4 TYi 
1400 R = R 4 1 

PRIMT 0»! PRIKT R$:R! INPUT MEi IF NE * 8 THEN PRINT »:FL = 1: VTAB 
12i PRINT ’NESSlh HEMO PER 'HWITN)* 'TO', I9'TY$*.': VTAB 23: PRINT ' 
BATTI UN TASTO QUALSIASI PER TORIttRE AL MENU.’GET A$: PRINT : RETURN 
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1420 AD = 1: 60SUB 1630 
1430 RETURN 

1440 REM C^CELLAZIONE MEMO 

1450 yiAB 21; PRINT ^SPAZIO) CW^CELLA TUHI I MEMO.'; VTAB 22; PRIMI '<C> 
CWCELLA IL MEMO SELEZIOT^TO.'; VTAB 23; PRINT •<RETURN> PER CONTINUA 
RE.'; POKE 34,20 
1460 X = PEEK ( - 16384) 

1470 IF X = 141 THEN POKE - 16368,0; POKE 34,4; HOME ; RETURN 

1480 IF X 160 THEN POKE - 16368,0; GOTO 1510 

1490 IF X = 195 THEN POKE - 16368,0; POKE 34,20; HOME ; GOTO 1540 

1500 GOTO 1460 

1510 REM C^CELLAZIQNE DI TUHI 1 MEMO DI m GIORT^^TA 
1520 PRINT 'CODICE DI SICUREZZA?;';; INPUT ";A$; IF A$ < > SC$ THEN POKE 
34.4; HOME ; RETURN 

1530 PRINT 0$; PRINT U$;R; PRINT 0; PRINT C$; POP ; RETURN 
1540 REM C^CELLAZIONE DI UN MEMO SELEZIOt«^TO 

1550 VTAB 21; PRINT 'INSERISCI IL MEMO DA (>^CELLARE (0 PER USCIRE)';; INPUT 
DE 

1560 IF DE = 0 THEN POKE 34.4; HOME ; RETURN 

1570 IF HE = 1 THEN GOSUB 1530 

1580 FQR J = DE TO ME;ME(J) = ME(J); NEXT 
1590 M^= ME - 1 

1600 hlHJ 0$; PRINT U$;R; PRINT ME; FOR I = 1 TO ME; PRINT ME(I); NEXT ; PRINT 

C$ 

1610 POP ; GOTO 1060 

3000 REM RICERCA DI QUALSIASI MEMO 

3010 HOME ; '/TAB 12; PRINT 'INSERISCI LA DATA DEL MEMO CHE VUOI VEDERE 

'; VTAB 14; HTAB 15; PRINT '(ft1,GG,^)'; VTAB 15; HTAB 16; INPUT ";TM 

,TD,TY 

3020 IF TM < 1 OR TM ) 12 OR TY < 0 OR Tf ) 99 THEN 3010 

3030 IF TD < 1 OR TD ) DA(TM) THEN 3018 

3048 TY$ = STRI (TY); IF LEN (TY$) < 2 THEN TY$ = '0' 4 TYi 
3050 HOME 

3060 R = 8; GOSUB 9010 


ATTI UN TASTO QUALSIASI PER TORTORE AL MENU.';; 6ET A$; PRINT ; RETURN 
^3080 AD = l; 450SyB‘1030 


3090 TEXT ! HOME ; VTAB 12; PRINT “VUOI VEDERE m ALTRO GIORT^O '><S/N)“;; GET 
3100 

5000 REM INSERIMETTTO 

5010 PRirTT PRIfTT Rm;0; INPUT MI: PRIffT C$ 

5020 PRINT “DATA ODIEf^i^kftl)' “DD’jlP'YR^ 

5030 PRM * PÒKE 34,2; HOME 

5040 ME$ = 

5050 MI = MI 4 1 

5060 VTAB 5; PRUTT 'INSERISCI L'ORA DEL MEMO.'; VTAB 6; PRM '(ESEMPIO 12 
.00=1200): ';: HTAB PEEK (36) - 3; INPUT ";T1$ 

5070 IF TI$ = TU = '9999'; GOTO 5090 

5080 IF VAL ( LEFT$ (TU, 2)) > 24 OR VAL ( LEFT$ (TU, 2)) < 0 OR VAL ( MlD-$ 
(TU, 3,2)) < 0 OR 'VAL ( MID$ (TU,3, 2)) > 59 THEN HOME ; GOTO 5068 
5090 IF LÉN (TU) < > 4 THEN HM ; GOTO 5860 
5100 VTAB 8; PRINT 'INSERISCI MEMO:' 

5110 FOR I = 1 TO 120; PRINT ' NEXT ; GOSUB 9540 

5120 VTAB 18; PRIlfT 'CONFERMI 7(S/r^)';: GET A$; PRUfT ; IF A$ = 'N' TH&^ M 

E$ = "; TEXT ; HOME ; GOTO 5808 

5130 HOME ; VTAB 4: PRINT 'QiMTE VOLTE VUOI INSERIRE IL MEMO ^•; 'vTAB 5: PRINT 

'(0 PER TORNARE AL MB'IU);';; INPUT ";SM: IF SM > 52 THEN PRINT ; PRINT 

"TROPPE VOLTE!(52 E' IL WlSSIMO.)': FÒR I = 1 TO 3000: NEXT ; GOTO 513 


5140 

5150 

5160 

5178 


IF SM < = 0 THEN RETURN 
FOR I = 1 TO SM 

VTAB 7; PRINT 'DATA £';I ;'(MM,GG,AA) ;' : ; INPUT " :TM(I),TD(I) .TY(I) 

IF TM(I) < 1 OR TMd) ) 12 OR TY-I) < 8 OR TY(I) ) 99 THEN VtAB ?; CALI 
- 958; GOTO 5160 

IF TD(I) > DA(TM(I)) THET^ 'VTAB 7; CALL - 958; GOTO 5168 
IF TY(I) < 0 OR TYd) > 99 THEN VTAB ?: CALL - 958; GOTO 5168 
5288 TM = TM(I):TD = TDd):R = 8: GOSUB 9010:R(I) = R 
5210 VTAB 7; CALL - 958: NEXT 

IF SM = 1 THET^ HOME ; PRIlff ; PRir^T 'COT^FERMI ?(S/N)': GOTO 5240 
HOME : PRINT ; PRINT 'CONFERMI imi) 

PRM : FOR I = 1 TO SM: PRM TM(I)'/'TD(I)'/' ; ; IF LET^ ( STfU (TY( 
I))) < 2 THEN TY$ = '0' + STR$ (TYd)); PRM TY$,L GOTO 5268 
PRM STR$ (TYd)), 

NEXT ; PRM 

VTAB 4; HTAB 26; GET A$; PRM A$ 

IF A$ = 'N' THEN HOME : GOTO 5130 

HOME ; VTAB 12: HTAB 11: INVERSE ; PRM 'NON MERROMPERE"; VTAB 13 
; HTAB 8; PRM 'SCRITTURA DATI SU DISCO': NORMAL : POKE 34,13; HOME 
5300 ME$ = TU + ME$ 

5310 PRM 0M$; PRM LIM$;M1; PRM ME$; PRM UM$;0; PRIlfT MI; PRM C$ 


5180 

5190 


5220 

5238 

5240 

5250 

5260 

5278 

5280 

5298 



rore commesso a questo punto nell’in- 
troduzione interromperà il processo di 
cancellazione. 

Per aumentare la “privacy” è possi¬ 
bile, se l’Apple è dotato di AUTO¬ 
START ROM, aggiungere al pro¬ 
gramma le linee di codificazione qui 
sotto riportate. Questo non solo pre¬ 
cluderà agli altri l’accesso al program¬ 
ma, ma provvederà anche a protegger¬ 
lo contro i RESET accidentali. 

85 POKE 1010,233 : POKE 
1011,242 : CALL-1169 
9000 TEXT : HOME : NEW 
9315 IF ER = 56 THEN CALL 
43089 : RÉSUMÉ 

La linea 85 imposterà il vettore di 
RESET sulla routine ONERR $F289. 
Una volta fatto ciò qualsiasi RESET 
accidentale o intenzionale imposterà il 
flag di errore (ER) su 56. Quando que¬ 
sto viene incontrato dalla linea 9315 i 
collegamenti di Input/Output del 
DOS saranno ripristinati da un CALL 
43089, e l’esecuzione del programma 
tornerà al punto nel quale è stato in¬ 
trodotto il RESET. Questa routine è 
l’equivalente in BASIC della routine 
utilizzata da molti produttori commer¬ 
ciali di software per proteggere i loro 
programmi in linguaggio macchina. Se 
però si aggiungeranno queste linee e il 
programma sarà eseguito su una mac¬ 
china priva di AUTO-START ROM il 
programma non girerà. 


Modifiche possibili 

Il programma è predisposto per una 
stampante con interfaccia parallela 
Apple-Centronics nello slot 1. Per 
cambiare la procedura di inizializza- 
zione adattandola ad altre stampanti 
basta introdurre il cambiamento a li¬ 
nea 1200. Così pure se la larghezza di 
80 caratteri non è accessibile o non è 
desiderabile per gli stampati si deve 
cambiare la variabile M3 sulla linea 
9710. Si deve fissare M3 a un carattere 
meno della larghezza di caratteri della 
stampante utilizzata. 
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C05MIC 


COSMIC 

COSMIC 


COSMIC 

COMPUTER SHOP 


A ROMA • Via G. Lanza 101-103-105 Tel. 738224 


^appk* 


COSMIC 


INSERITO 15 HEMO PER 


5328 FRINÌ 0$ 

5330 POR J = 1 TO SM; FRINÌ R$;R(J); INPUT RE 
5348 IF RE = 0 ÌHEN GOTO 5380 
5350 IF RE = 15 ÌHEN FRINÌ ; PRirìT " 1^1 GIÀ' 

(J))* GOTO 5408 

5360 POR I = 1 ÌO RE 
5370 INPUT RE(I): NEXÌ 
5380 RE = RE + l!RE(RE) = MI 

5390 FRINÌ U$jR(J)j FRINÌ RE: POR I = 1 ÌO RE; FRINÌ RE(I); NEKÌ 
5488 NEXÌ : FRINÌ C$ 

5410 VTAB 22; FRINÌ "(SPAZIO) PER COrfTINUARE"; VÌAB 23; PRM -(RETURN) FE 
R TORNARE AL MENU" 

5420 X = PEEK ( - 16384); IP X = 160 THB^ POKE - 16368,8: HOME ;ME$ = "" 
; GOTO 5020 

5430 IP X = 141 ÌHEf^ POKE - 16368,8; RETURN 

5440 GOTO 5420 

5450 REM SÌ^PA MEMO 

5460 PRM ; POR I = 1 ÌO ME:Ì1$(I) = LEPÌ$ (ME$(I),2);Ì2$(I) = MIDI (ME 
$(I),3,2) 

5470 IP ìlid) = "F?- ÌHEN IWl) = ’ ";Ì2$(I) = ’ ":ìa(I) = " GOTO 
5520 

5480 IP VAL (Ì1$(I)) ( 12 ÌHEN Ì3$(I) = " AM"; GOTO 5520 

5490 IP VAL (ìli(l)) ) 12 AND VAL (ìl^(I)) ( 24 ÌHEN Ì3$(D = " PM";Ì1$( 

I) = STRI ( •>)AL ami)) - 12);Ì1$(I) = "0" + ÌU(I): GOTO 5528 
5520 IP LEN (Ì1$(I)) ) 2 ÌHEN Ì1$(I) = MID$ (ÌH(I),2,2) 

5530 NEXÌ ; IP PL = 1 ÌHEN PL = 8; REÌURfi 

5540 POR I = 1 ÌO ME; FRINÌ Ì1$(I)";"Ì2$(I);Ì3$(I); ; 60SUB 9718; NEXÌ 
5550 PRM CHR$ (4)"PR£8" 

5560 REÌlJRf^ 

7000 REM Rin^OVAMETìFO 

7018 ÌEXÌ : HOME ; VÌAB 12: PRM "QUESTA OPZIONE CATCELLA ÌUÌÌI I DATI 
INSERITI, m VOLTA C^CELLAÌI NON POÌRi^M^O PIU' ESSERE RECUPERA 
il. BATTI (REÌURfO PER OVCELLARE OPPURE (SPACE) PER USCIRE" 


X = PEEK ( - 16384); IP X = 160 ÌHEN POKE - 16368,8; REÌUl^^ 

IP X = 141 ÌHEN POKE - 16368,0; GOTO 7050 
GOTO 7820 

PRM ; PRM "CODICE DI SICUREZZA ?;";; INPUT ""jA^; IF A$ ( 
RETURN 

HOME ; VÌAB 12; HÌAB 12; PRM "RINNOVi^VIENÌO..; POKE 34.13; HOME 
PRM 0$; POR I = 1 TO 366; FRINÌ (4;I; PRM 8: NEX7 ; P^M 
FRINÌ CHR$ (4)’DELEÌE MEMOS 
PRM 0M$: PRM WM$;8; PRM 0: PRM C$ 

RETURN 

REM ;CENTERING ROUTINE 

20^^^L^^g$) / 2; PRM Mi RETURN 

REM ‘ruotine PER DEÌERMIf^RE QUALI DATA PILES APRIRE 
IP ÌM = 1 ÌHEN 9060 
POR J = 1 TO TM - 1 
DA(J) 


28 ÌHEN R = R + 1 


7820 
7038 

7040 _ 

7858 PRM ; PRM "CODICE DI SICUREZZA ?;";; INPUT "'{A^; IF A$ ( ) SC$ ÌHET^ 

7068 
7870 
7880 
7098 
7100 
8000 

fili 

9010 
9020 
9030 

9040 R = R + 

9050 NEXÌ 
9068 R = R + ÌD 
9070 IP ÌM ) 2 ^D DA(2) 

9080 RETURN 
9100 REM ; INSERIMENTO GIORNI PESTIVI 
9118 POR I = 1 ÌO 10; READ HD$(I),HD(I); NEXÌ 

9120 POR I = 1 ÌO 12; READ M(»(1),DA<I); NEXÌ 

9130 RETURN 

9200 REM ;CREA2I0NE CODICE DI SICUREZZA 

9218 VÌAB 20; PRM "«* COPYRIGHT 1984 BY": VÌAB 21; HÌAB 7: PRM "APPLIC 
^DO 4 MICROSPARC,INC.»*-; VÌAB 18; PRM "CODICE DI SICUREZZA?: "; 

; HÌAB ( PEEK (36) - 3) 

9220 POR I = 1 ÌO 4; 6EÌ A$; IF A$ = '" ÌHEN PRM ; PRM "ERRORE!";; POR 

I = 1 ÌO 3000; NEXÌ ;SCf = "'; HOME ; GOTO 9219 

9230 PRM A$;;SC$ = SC$ + A$; NEXÌ ; PRM 

9240 PRM CHR$ (4)"0PEN LOCK": PRM CHR$ (4)"URIÌE LOCK"; PRM SC$: PRM 
CHR$ (4)"CL0SE" 

9250 HOME ; VÌAB 12; HÌAB 10: PRM "INIZIALIZZA PILE"; PRM 0$ 

9260 POR I = 1 ÌO 366; PRM W$:I; PRM 0; NE>rr ; FRINÌ CI 

9270 PRM Om: PRM WM$;0; PRlNÌ 0; PRM CI 

9280 GOTO 250 

9300 REM ROUTINE PER DEÌERMIf^RE GLI ERRORI 

9310 ER = PEEK (222): REM TIPO DI ERRORE 

9320 EL = PEEK (218) + PEEK (219) « 256 

9330 IF ER = 6 ÌHEN 9200 

9340 IP ER = 254 m EL = 5130 ÌHEN 5130 

9350 IP ER = 22 ÌHEN PL = 1; GOSUB 258;PL = 8; GOTO 398 

9360 IF ER = 4 ÌHET^ ÌEXÌ ; HOME ; VÌAB 12; PRM "DISCO PROTETTO."; ET^D 

9370 IP ER = 8 ÌHEN ÌEXÌ ; HOME ; VÌAB 12: PRM "ERRORE I/O.": END 

9380 IF ER = 9 ÌHEN ÌEXÌ ; HOME ; VÌAB 12; PRM "DISCO PIETRO."; ET^D 

9398 IP ER = 254 ^D EL ( 388 ÌHEN VÌAB PEEK (37): RÉSUMÉ 

9480 IF ER = 254 EL ) 388 ÌHEN PL = 1; GOSUB 258;PL = 0; GOTO 399 
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9418 TEXT : HOME ; '/TAB 12: PRINT ‘ERRORE.£'ER' LINEA "EL".": PRIMI ‘CONSU 
' LTARE UN rWUALE DOS 0 APPLESOFT.': END 
9500 REM ^0 BISESTILE 
9510 IF INI (YY / 4) = YY / 4 THEN 0A(2) = 29 
9^20 RETURN 

9530 REM SALVATAGGIO E LETTURA 

9540 VTAB 9: CALL - 662 

9600 FOR I = 512 TO 633;L = PEEK (I): IF L = 13 OR L = 141 THEN 9628 

9610 MEI = ME$+ CHRI(L);NEXT 

9620 IF LEN (MEI) = 0 THEN POP ; RETURN 

9630 IF LEN (MEI) > 120 THEN MEI = PRINT ‘TROPPI CARATTERI .ACCORCIARE 
FOR I = 1 TO 3080; NE)a : VTAB 8: CALL - 958; POP ; GOTO 5100 
9640 RETURN 

9650 REM SCREEN & PRINTOUT FORl^TTER 

9780 MI = 11;M2 = 11;M3 = 39: GOTO 9720 
9710 MI = 14;M2 = 14:M3 = 79 
9720 NI = MIDI (MEI(I).5.( LEN (MEKD) - 4)) 

9730 LN = LEN (NI); FOR J = M3 - MI TO 1 STEP - 1:BPI = MIDI (NI,J,1); IF 
BPI = OR BPI = OR BPI = OR BPI = ’.‘ OR BPI = OR LN ( = 
M3 - MI THEN 9750 

9740 NE)a ; POKE 36,MI; PRINT LERI (NI,M3 - MI - 1);: PRINT ‘-‘;J = M3 - 
MI - 1 ; GOTO 9760 

9750 POKE 36.M1; PRINT LERI (NI,J); IF m < = M3 - MI THEN RETURN 
9760 Nll = RlGHTI (NI.LN - J) 

9770 IF LERI (Nll,l) = " THEN LN = LEN (Nll) - 1;N1I = MIDI (N1I,2,LN 
); GOTO 9770 

9780 LN = LEN (Nll); FOR J = M3 - M2 TO 1 STEP - 1;BPI = MIDI (Nll,J.l); 
IF BPI = " OR BPI = OR BPI = OR BPI = ‘.‘ OR BPI = OR LN 
< M3 - M2 THEN 9800 

9790 NE)a ; POKE 36,M2; PRINT LERI (N1I,M3 - M2 - 1);; PRINT •-‘;J = M3 - 
M2 - 1;LN = LEN (Nll); GOTO 9810 
9808 POKE 36,M2: PRINT LERI (Nll.J) 

9810 IF LN < = M3 - M2 THEN RRURN 
9820 Nll = RIGHTI (Nll.LN - J); GOTO 9770 

9980 DATA CAPOD^O.l.PASQUA,113,LUNEDrDELL^^GELO,114,^IVERSARIO DEL 
LA LIBERAZIONE,! 16,FESTA DEL LAVORO. 122,FERRAGOSTO,228,TUTI I S^I,38 
6, IftV^COLATA CONCEZIONE,343,S .^^TALÉ,360, S.STEF^O, 361 
9910 DATA GETI^IO,31 ,FEBBRAI0,28,rV^RZ0,31,APRILE,30,MAGGIO,31,GIUGNO,30, 

LUGL 10,31, AGOSTO, 31, SEHEMBRE , 30, ORÒBRE ,31,NOVEMBRE, 38, Di CEMBRE ,31 



Per scrivere le minuscole negli ap¬ 
punti basta premere il tasto ESC quan¬ 
do viene chiesto l’appunto. Dopo l’in¬ 
troduzione dell’appunto si prema ESC 
due volte prima di premere RE¬ 
TURN. Così facendo si riporterà 
l’Apple nel modo delle maiuscole 
fisse. 

Il programma, con le quattro possi¬ 
bili opzioni, ha quindi una versatilità 
da fare invidia anche alla più scrupolo¬ 
sa delle segretarie. Attenzione però: è 
stato studiato per la memorizzazione 
di appunti per un solo anno solare; col 
nuovo anno sarà necessario cancellare 
tutti i vecchi appuntamenti. In caso 
contrario gli appunti dell’anno prece¬ 
dente compariranno per il nuovo anno 
come per il vecchio. 
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Per professionisti e imprenditori ordine 
e chiarezza nell’amministrazione possono 
allontanare lo spettro di multe spesso 
salate. Ecco perché vai la pena 
usare il persona! computer. 


Per uscire 
dalla giungla 


S ono le piccole aziende artigianali e 
familiari, gli studi professionali e i 
singoli professionisti che oggi in Italia, 
se si va ad analizzare le percentuali di 
costo, subiscono gli oneri maggiori che 
derivano dalla tenuta dei libri contabi¬ 
li. Per fortuna, in questa Italia così 
aggrovigliata fiscalmente, il legislato¬ 
re si è reso conto che non avrebbe mai 
potuto pretendere dai contribuenti 
minori quanto poteva pretendere dal¬ 


le grandi società e aziende che fattura¬ 
no miliardi. Da sempre quindi, si può 
dire, vige in Italia la prassi della conta¬ 
bilità semplificata per coloro che non 
superano un fatturato annuo di 480 
milioni di lire. 

Da quando poi il personal computer 
ha cominciato a diffondersi, sono nati 
subito alcuni ottimi programmi non 
solo di contabilità generale, ma anche 
di contabilità semplificata, fra i quali, 
uno dei più affidabili e di facile utiliz¬ 
zo, con realise aggiornata al settembre 
1983, è quello della Pur.Sol., una so¬ 
cietà di software di Campobasso (via 



24 Maggio 75, tei. 0874-64140). 

Nel progettare il package, gli autori 
si sono sforzati di prendere in conside¬ 
razione tutte le possibili problemati¬ 
che che scaturiscono dalla gestione di 
una contabilità Iva connessa all’uso 
del computer, di conseguenza hanno 
messo a punto alcune routine di prote¬ 
zione da errori che possono acciden¬ 
talmente verificarsi in seguito a una 
non corretta utilizzazione degli archi¬ 
vi. Ne deriva una maggiore possibilità 
di concentrazione, da parte dell’uten¬ 
te, sulla fase analitica del lavoro, 
aspetto questo davvero importante. 


Illustrazione 
di Don Weller 
per Apple 
Computer Ine. 
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Configurazione 
del sistema 

Un Apple II o //e con memoria uten¬ 
te di 46 KByte, monitor, due unità 
disk drive - in alternativa Tottimo e 
nuovissimo DuoDisk- e una stampan¬ 
te da 132 colonne, possibilmente for¬ 
nita di contatore interno di linee, per¬ 
mettono la gestione contemporanea 
fino a 255 aziende diverse, 50 aliquote 
Iva, 50+50 codici di costo e di ricavo, e 
600 tra clienti e fornitori se si utilizza 
un dischetto da 5 pollici in appoggio al 
programma contenuto su un unico 
supporto magnetico. Se invece, con 
poca fatica in più, si vuole suddividere 
in due dischetti la contabilità, si rad¬ 
doppia la capienza, e clienti e fornitori 
diventano 1.200. 

Le procedure del programma sono 
legate a tutte quelle operazioni che per 
legge bisogna svolgere per avere una 
contabilità in regola con il fisco, da 
una parte, ordinata ed efficiente per le 
proprie esigenze amministrative e ge¬ 
stionali, dall’altra. Sicuramente utile 
ricordare che l’uso del computer ag¬ 
giunge semplicità a semplicità, ma so¬ 
prattutto ordine. Un mezzo in più per 
allontanare lo spettro di multe spesso 
salate, dovute in gran parte solo a ne¬ 
gligenze formali e al disordine di chi 
deve provvedere alla propria contabi¬ 
lità senza poter contare su uno stuolo 
di ragionieri. Così si dimostra che Bal- 
zac aveva ragione, quando scriveva 
che le leggi sono ragnatele che le mo¬ 
sche grosse sfondano mentre le piccole 
ci restano impigliate. Meditate, con¬ 
tribuenti, meditate. 


1. Struttura organizzativa 
del programma di contabilità 
semplificata Fur.Sol. 


CONTABI LITA •- SEMPLI FI CATA 

MAIN MENU" 


GESTIONE AZIENDE. 

< 1 ;> 

GESTI ONE DISCHI DAT I . 

/ 2 

GESTIONE ALIQUOTE. . . . 

*\ d 

GESTIONE CODICI OP. . . 

<4> 

G E STION E AMA G RAPICI.. 

< 5 > 

GESTIONE MOVIMENTI . . . 

< ó > 

STAMPE REGISTRI IMA . . 

\ 7 > 

STAMPE ESTRATTI. 

< 8 > 

MA RIA ZIONI ANN 0 CM P. . 

< 9 > 

UTILITIES.< 

10> 

FINE ELABORAZIONE.../ 

1 1 > 

COMANDO RICHIESTO 

— 

2. Menù principale. 

G E ST I ON E Af-4 A 6 R A PICI 


CREAZIONE ELENCO CL.. 

<: 1 > 

CREAZIONE ELENCO FR.. 

< 2 > 

IMMISSIONE CLIENTI... 

<3> 

I r-1M ISSI ON E F 0 RN IT 0 R I . 

<4> 

RIC E R CA/C 0 R R E ZION E C L 

6 )• 

RICE R C A./ C 0 R R E Z I ON E F R 

■( 7 > 

stam pa alle GAT 0 C L. . . 

< 3 > 

STAMPA ALLEGATO FR... 

<9 > 

FINE ELABORAZIONE.... 

< 9 > 

1 COMANDO RICHIESTO 



4. Menù di gestione dei dati anagrafici. 


Tutti i programmi 
per Apple 

• Contabilità semplificata per ditte, Cigai- 
na, via P. Zorutti 65,33053 Latisana (UD), 
tei. 0431/510231 

• Procedura commerciale per contabilità 
semplificata o in partita doppia. Compu¬ 
ting Program, via G. Piovesana 32, 31015 
Conegliano (TV), tei. 0438/34484 

• Contabilità semplificata multiaziendale, 
Computer Point sas, viale Unità d’Italia, 
66013 Scalo (CH), tei. 0871/587143. 

• Contabilità semplificata, Computer Sy¬ 
stem, via Enrico Bottiglieri 19,84100 Saler¬ 
no, tei. 089/394491. 

• Contabilità semplificata multiaziendale. 
Informatica Biella sas, Piazza S. Paolo 1, 
13100 Biella (VC), tei. 015/29875. 

• Contabilità semplificata. Computer 
Center di Genova, Corso Gastaldi 77/R, 
16131 Genova, tei. 010/300797. 

• Contabilità semplificata multiaziendale 
con allegato clienti e fornitori su modulo 
ministeriale, CR2 Informatica snc, corso 
Genova 100, 16033 Lavagna (GE), tei. 
0185/305658 


GESTIONE ALIQUOTE IO 

A 

CREAZIONE ELENCO. 

<1 > 

IMMISSI ONE AL I QUOTE. . 

< 2 > 

RICERCA / CORREZIONE. 

<3> 

STAMPA ELENCO. 

<4> 

C A L C 0 L 0 M ENT I L A Z I ON E . 

<5> 

FINE ELABORAZIONE.... 

<ó> 

COMANDO RICHIESTO 



3. Menù di gestione delle aliquote Iva. 


STAMPE ESTRATTI 


E RTPATTO f:LI ENT I . 

< ì > 

ESTRATTO FORNITORI . , . 


E ST RATT 0 C 0 D . R I CAM 0 . 

■( 3 > 

E ST RATT 0 C 0 D . C 0 ST 0 . . 

< 4 > 

FINE ELABOPAZ! ONE. . . . 

/ ET \ 

COMANDO RICHIESTO 



5. Menù di stampa degli estratti. 
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È un gioco per due persone, nel quale si danno 
battaglia cannoni di grosso calibro. 

Vince chi sa studiare meglio la velocità del vento, 
la gittata e l’elevazione della canna. 

Duello 

d’artiglieria 


T rafalgar, 21 ottobre 1805, ore 12: 

proprio a mezzogiorno, davanti 
al capo della penisola iberica sull’A¬ 
tlantico che si trova a metà strada tra 
Cadice e lo stretto di Gibilterra, ebbe 
inizio la battaglia che è passata alla 
storia come la più grande della marina 
velica. Vi presero parte 33 vascelli e 7 
fregate franco-ispane contro 27 vascel¬ 
li e 6 fregate britannici. Fu la vittoria 
per l’Inghilterra che perse solo 449 uo¬ 
mini e nessuna nave (Horazio Nelson, 
il mitico ammiraglio, venne però col¬ 
pito a morte), e la disfatta per gli allea¬ 
ti: oltre 4 mila morti e 18 vascelli affon¬ 
dati. 

Il segreto della vittoria inglese fu 
spiegato nella precisione di tiro del¬ 
l'artiglieria capace di colpire gli obiet¬ 
tivi nemici dopo una forcella velocissi¬ 
ma (un colpo corto, un colpo lungo, 
quindi il bersaglio). E Duello dùirti- 
glieria può far gustare ai contendenti 
remozione che si prova quando si fa 
centro. 

Il Duello d’artiglieria mette l’uno 
contro l’altro due giocatori in veste di 
artiglieri, appostati sugli opposti ver¬ 
santi di una gigante.sca montagna. Pri¬ 
ma di sparare devono studiare le con¬ 
dizioni di vento e la posizione propria 
e dell’avversario, per scegliere l’ango¬ 
lo di elevazione della canna e la gittata 
dei rispettivi cannoni. 

> Durante il gioco si può scegliere il 
grado di difficoltà in base alle condi¬ 
zioni del vento, che può essere o di¬ 
scretamente stabile o a raffiche. Nel 
primo caso il vento cambia solo dopo 


che si è mandato a segno un colpo; nel 
secondo caso il vento può cambiare 
direzione e forza dopo ogni colpo spa¬ 
rato. Quest’ultima situazione è ovvia¬ 
mente difficile, dato che le informa¬ 
zioni ricavate dal tiro precedente non 
serviranno a molto. 

Angolo di elevazione, gittata e pun¬ 
teggio di ciascun giocatore \engono 
visualizzati sotto la figura a Hi-Res. 
Quando tocca a un giocatore far fuoco 
viene visualizzato, insieme con il valo¬ 
re del tiro precedente, un valore d’an¬ 
golo che cambia a seconda della posi¬ 
zione del paddle. Quando si preme il 
pulsante è accettato il nuovo valore. 
Dopo che è stata impostata allo stesso 
modo la gittata parte il colpo. 

Base matematica e fisica 

Si avrà la visualizzazione dell’impat¬ 
to della granata, indicato anche dal 
suono di uno scoppio. Poi si forma al 
punto d'impatto il cratere dell'esplo¬ 
sione. Dopo ogni colpo messo a segno 
si può decidere o di cambiare l’am¬ 
biente o di lasciarlo immutato. In en¬ 


trambi i casi la posizione dei cannoni 
viene modificata. Il giocatore che ha 
sparato per primo diventa il secondo, 
per compensare il vantaggio del primo 
colpo. 

Lasciando da parte certi effetti di 
scarsa importanza per i nostri fini no¬ 
tiamo che il moto di un oggetto sotto 
l’influenza della gravità e dell’attrito 
può essere descritto dalla seguente 
formula: 

dv/dt = g - (v - w) V - w / k 
dove V è il vettore di velocità, g il 
vettore di accelerazione a causa della 
gravità, w il vettore del vento e k un 
coefficiente di attrito che dipende dal¬ 
la massa e dalla forma dell'oggetto. 

Tradotta in parole l’equazione si¬ 
gnifica che il ritmo di mutamento della 
velocità a causa dell’attrito è propor¬ 
zionale al quadrato della velocità in 
relazione con l’aria, ed è sempre nella 
direzione opposta a questa velocità re¬ 
lativa. L’effetto della gravità è dato 
direttamente dal valore e dalla dire¬ 
zione di g. 

La scissione del vettore di velocità 
nelle sue componenti orizzontale (u) e 
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verticale (v) dà luogo alla seguente se¬ 
rie di equazioni, sulla base del presup¬ 
posto di un’azione verticale della gra¬ 
vità e di un’azione orizzontale del 

vento: _ 

du/dt = -k'(u-w)' V(u-w)~+u^ 
dv/dt = -g-k' vV(u-w)^ + u“ 

Così, una volta noti i valori di u e v a 
un determinato momento (per esem¬ 
pio all’inizio), si può calcolare il mem¬ 
bro di destra delle equazioni, e ottene¬ 
re il corrispondente ritmo di cambia¬ 
mento. A un momento successivo ab¬ 
bastanza vicino il valore di queste va¬ 
riabili è dato da: 

nuovo valore = vecchio valore + rit¬ 
mo di cambiamento intervallo di 
tempo. 

In tal modo si possono ottenere cop¬ 
pie consecutive di u e v applicando 
ripetutamente il metodo. I corrispon¬ 
denti valori di posizione x e y sono 
ottenuti in modo analogo usando: 
nuova posizione = vecchia posizione 
+ vecchia velocità * intervallo di 
tempo. 

Nel programma questi calcoli hanno 
luogo nella subroutine che comincia a 
linea 610. Si noti che i nomi di variabi¬ 
le utilizzati nel programma sono in 
certa misura diversi da quelli impiegati 
qui. Inoltre è stata fatta un’approssi¬ 
mazione sommaria della radice qua¬ 
drata nelle equazioni indicate sopra, al 
fine di accelerare il programma. La 
soluzione esatta richiederebbe per Y 
la definizione seguente (linea 610): 

Y = SQR(X=^X + VO^^VO)=TR 
ma ciò non è necessario, dato che l’er¬ 
rore risultante è trascurabile e l’esecu¬ 
zione del programma sarebbe conside¬ 
revolmente rallentata. Si può compen¬ 
sare la perdita di velocità cambiando 
la risoluzione (linea 320), ma questo 
avrebbe di tanto in tanto come conse¬ 



guenza che la granata passerebbe da 
parte a parte la sommità della monta¬ 
gna come se percorresse una galleria. 


il REM * ARTI..ERY DjEL 

:2 REM * BY .uDWIG REISKY * 

•3 REM * COPYRIGHT (C) 1^84 ^ 

:4 R&M * 3 Y APPLiCAiNDO ^ 

i 5 REM * 4 MICROSPARC, INC. * 

lé REM **##***^»*i^**»**r»*^t4*» 

:6 REM 

100 ^RINT CHR-$ (4)“3lGADSHAPES" 

280 li^EM: 24576! REM PRGTECT 'vARIABLES 
218 DiM Y(279),GXa),6Y(Ì),A«:i),.PU(l),SK<n 
228 X = 0;v = 88 

238 POKE 232,;^: PCKE 233,Y: 8 GSUB 388:8 

248 XD = X:Y0 = XiXN = ^lYN = XjU = X:Uu = X:^C = X;Yl = ló 8 :ERRPLA 6 = 216: 

PijSHBliTTN = 49249 
380 REM PARAMETRI IMPORTANTI 

318 P^OU'ER = .IdiCRAViT'- = 5E - = .30é:yiNO = . 88 :ACC‘JRACY = 3:riEI6H 

^ = 113 
320 RESOL = 18 

330 PC = PO « REìCR = CR * RE » REiWl = MI < RE 
488 Pli^TATORI £ COS’ATEI 

410 PI = X + Y * 256 t 39iP2 = PI t 171!P3 = P2 + 16Ó!P4 = P3 + 28:P5 = P4 t 
8 ó:EH = P5 + 60 

420 REM P1,P2=SFO^DO,P3=ESPLOSL^^E,P4=SUM,p5=SUlM!=ERRORE DI i-^^IPOLAZ 

im 

430 X = INT (P4 / 25ó ^ .001):Y = P4 - 256 * X: POKE 252,Y: POKE 253,X 
440 Al = 140!A2 = 155:a3 = 5:A4 = .5298:A5 = .5:AÓ = .99411?5:A7 = .3923:PA 
= 3.14159 188 

458 P$(0) = ‘<=NP-$( 1 ) = "=>“ 

580 GOSUB 6010: GOTO 28018 
608 REM TPAIE'^ORIE 

618 X = W * iJCiY = ( A 8 S (X) + ABS (UO)) * FRiUO = uO " X » Y:V0 = + CR 

- yo * Y!;xr^ = XO + IìO:YN = YO + VO: -Of^ERR GOTO 710 
628 XDR-ALi 4 aT X0,Y0 

630 XO = XNiYC = YN: XDRAW 4 AT m,m\ POKE ER,9! IF YN < YCXfO mi 610 

648 XDRAìaì 4 AT GOSUB 11918! OT^ HT M èOTC 21010,25010 

780 REM ERRORI 0Ì MANIPOLAZIONE 

T18 CALI. EH! OTsERR GOTO 738 

720 GOTO 630 

730 CALL EH! POKE ER,0: IF YN ) YL THBs 21818 

•740 5QYQ 

2800 REM ANGOLO DI ELEVAZIONE E VELOCITA' DEL PROIETTILE 
2810 SCAlE= 8 ! HC0L0R= 8 ! FCR I = 48 TD 80! R0T= l! 303U8 4028: NEXT I 
2020 K = 2 > 35 * P!K: = t t 25 * p!i = P! FLASH ! GOSUB 12:00! NORflAi 
2030 IF PEEK (PO + P) > i27 THEN HC0.DR= 3! GOSUB 4010! GOTO 2960 

2040 Y = PDL (P)! HC0L0R= 3! GOSUB 4818 

2058 A^P) = INT (135.1 * \0T p ^ sP - NCT P) Y * A4)! vTAS 21 ! HTaB K! 

X = A(T^)! GOSUB 12120! HCGL0R= 0! GOSUB 4810! GOTO 2838 
2060 C = COS (A(P) « PA) » SOn (AS - P)!S = SIN (A(P) * PA) 

2070 'UTAB 21 ! HTAB K 1 ! PRINT * N IF PEEK -p'J t > 127 THEIs 2870; REM 
JAiCIO PROIETTLt 

2100 REM ROUTINE PER DETERMir^RE LA POTENZA 
2110 FLASH ! GOSUB 12110: NCRMAl 

2129 IF PEEK (PU ^ P) ) 127 THEN 2140 

2130 PW(P) = INT (A7 * PDL (P)): (TìAB 22: HTAB ^!X = Pw^P’: GOSUB :2:20! GOTO 
2120 

2140 'VTAB 22: HTAB Kl: PRINT ■' ^ RE'^URTN 

3080 REM DETERMIfNAZIOsE SFONDO DI BATW^LIA E INTEfNSITA' DEL VENTO 

5010 HOME ! HGR : HCGL0R= 3: FOR I = 0.TO 278; MPLO"^ !,Y(I) "0 I t + 

1): NEKT I 

3028 HPLOT Al, 12 TO Al ,8 TO Al t 68 / DI ♦ y,A3 TO Al,13! RrUf^N 

4888 REM CANNA DEL CANNONE 

4010 R0T= 56.5 - 8 » P + Y * A 6 

4020 DRAU 4 AT 6X(P),3Y(P) - 1: RETURTN 

5080 REM CANNONE 

5818 6 X(I) = INT ( RND (I) * 88 M 6 + 167 » I) 

sii '’Wt= ^RAw 1 AT GX(1),SY(!): RETURN 

6900 REM CREAZIONE SFONDI DI BATTAGLIA 

6010 X = INT ( RND <;) » A1):Y = ( RND < 1 ) * 3 ♦ 8 ) » HE » .125E - : 


Struttura del programma 
e accorgimenti speciali 

La Struttura del programma si confi¬ 
gura così: l’inizializzazione avviene 
nelle linee 200-400 con una deviazione 
(linea 230) sulle istruzioni di gioco 
(30000-30060). Poi la linea 500 condu¬ 


ce al programma principale (20000- 
21030). La parte in mezzo (2000- 
14020) contiene le subroutine. Dal 
punto di vista logico le linee 600-730 
appartengono al programma principa¬ 
le, ma dato che per esse il tempo è 
fattore critico sono state messe più vi¬ 
cine aH’inizio. 

Il modo in cui funzionano le routine 


è nella maggior parte dei casi eviden¬ 
te, ma qualcuna richiede un’ulteriore 
spiegazione. Ecco il caso più semplice. 
Può essere necessario ritoccare i valori 
di A5, A6 e Al (linea 400), che pren¬ 
dono in considerazione certe singole 
proprietà dei paddle, per ripristinare i 
giusti valori nelle posizioni terminali 
. dei paddle (linee 2060 e 2130) e per far 
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6828 

FOR i = 0 TO 279;Y(]) = A2 - 

INT ( PEEK (Pi 

+ ABS 

(I - 

AD.) * PEEK 


(P2 ♦ ABS (Al - ABS (i - Al ^ 

■ X)X) il Y); NEX 

T T 



6838 

RETURf^ 





7000 

REM ESPLOSIOIE 





T9!0 

R0T= 8; FCR I = 1 TO 2; SCALE= 

= I ; XDRAùi 2 AT : 

XM,YM; ! 

‘lEX^ 

i; RETURN 

8098 

REM EFFETTI E RIMEDI Al^E ESPLOSICr^I 



8818 

FOR I = 8 TO 3;R = XM M;L = 

XM - I; IF NOI 

I THEN 

7 = 

R; GOSUB 810 


9; NEXT I 





8028 

IF L > = 0 "HEN Z = L; GOStiE 

^90; HC0L0R= 3 

; HPLOT 

L f 

1,Y(L + 1) TO 


L,Y(L) 





3030 

IF R < = 279 Z = R; GOSl 

IB 3100; HC0LDR= 

3; HPL: 

OT R 

- l.Y(R - 1) 


; 0 K 1 ì ( R •• 





8840 

NEXT I; IF NO”" HT THB^ HCGLC 

T 

)R= 3; FOR I = 8 


GOSUB 5028; NEXT 

3050 

^RETLlf^^ 





8180 

IF I < ) 8 THEN HC0L0R= 9; r 

IPLOT Z,160 TO Z 

,Y(Z) - 

25;’ 

Y(Z) = Y(Z) f 


3 - PEEK '.P3 ^ I); IF Y(Z) > I 

,59 ■^HETi Y(Z) = 

l59 



31i0 

RETIIRT^ 





9000 

REM DisTRuzi'M mm 





9010 

SCALE= 3: FOR I = 12 TO 74; HC 

:0lCR= 3; R0T= 2 

ii I; DRau 

1 .AT XM/t'M - 


I; HC0L0R= 9; DRAy I AT XM.YM - 

• I ; NEXT I 




9020 

HC0L0R= 3; R0^= 2 ♦ I; DR.4.- i 

AT - I; 3 

osuB n 

13; GOSUB 3910 

9930 

SCALE= 3; FOR I = 75 TO 2 STEF 

> - I; HC0L0R= 

3; RC’= 

172 

- 2 * u jm 


1 AT - .1 





9040 

hC0L0R= 8; DRAU 1 AT ;XM,YM - I 

; NEr : 




9050 

PGKE P5 ^ 1,2; CALl 5^5; POKE P5 t 1,28; GOTO 

10010 



13008 

REM SVEIvDlIO B^^'ìOERuOLA 





18010 

SCAlE= 4;X = 3 





10928 

POR I = 1 TO 63; HC0L0R= 3; fi 

10'^= X; 3CSUB 18 

Ì00;Y = 

4 « 

SIN (.2*1 


+ 64; IF ! < ; 63 ^HEN I = I; HCOLOR= è\ 5GSUB 10108 
10030 X = Y; NEXT I; RETUf^>j 
10180 DRAW 3 AI .j(M,Y(:XM); RETl!Rr>l 

11000 REM CALCOLO DI ESPLOSii^E E ESECUZIONE CONSEGUENZE 
11010 XM = INT (Xn + XO) * A5;YM = INT i'm + Y3) * A5;X = AB3 - XO) * 

A5:f = ABS Vm - YO) * A5; IF (X < 2) ÀND cY < 2) THEN 11040 
11928 IF Y<:^) > vfi tHEN XC = )(M;YO = YM; GOTO 11810 
11930 IF ’im) < /M THEN XN = aM;YN = YM; GOTO 11819 
11848 IF YM > 150 THEN YM = 158 

11858 SuSuS 7018; CALI ''S; FOR ! = 9 TO 1; IF ABS (XM - 6 X(I)) < AC THEN 
5K( nC'T I) = SK( NGT 1) + 1;hT = l; GOTO 11078 
1 1868 nEX*! I 

1 1070 t 1 3C^3 9913.9819.11983 


sì che la canna sia visualizzata nel mo¬ 
do giusto, vale a dire orizzontalmente 
a 0 gradi e verticalmente a 90 gradi 
(linea 4010). 

Un altro problema che si è presenta¬ 
to è che al di fuori dei confini dello 
schermo non doveva essere tracciata 
la granata, per quanto si dovesse pur 
sempre calcolare la sua posizione se 
era sopra il livello del terreno. Per evi¬ 
tare di dover fare le relative domande 
in ogni posizione, consumando così 
del tempo, il programma cerca di trac¬ 
ciare in qualsiasi caso, trattando i trac¬ 
ciamenti illegali tramite l'istruzione 
ONERR GOTO (linee 610 e 710- 
730). EH è la routine di trattamento 
delTerrore fornita a pagina 136 del- 
VApplesoft Maniial. 


Comesi formai! 
paesaggio 

Il compito da affidare al programma 
era però principalmente quello di ge¬ 
nerare un paesaggio che avesse la stes¬ 
sa struttura fondamentale, vale a dire 
con una montagna nel mezzo, ma al 
tempo stesso disponesse di qualche va¬ 
riante nella forma possibile per la 
montagna. 

Questo è stato ottenuto (linee 6010 
e 6020) costituendo due campi dati fis¬ 
si, uno a forma di campana (per ragio¬ 
ni di simmetria il campo dati compren¬ 
de soltanto 140 punti, cioè metà della 
forma di campana) mentre il secondo 
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11889 60SLÌB 7818: 3GSUB 8818: RETURT^ 

12880 REM STAMPA ELEUAZI(3r^E,PGTEr^ZA,PUrffE86IG,yE>^TG 

12818 -FOR I = 8 TO l;Ki = 2 + 35 M : GOSUB 12188: G0SU8 12118: HTAB Kl; PRIMI 
SK(I); fCX^ I 

12828 ‘/TAB 21: HTAB 13: PRI^fT ‘<=818.^^21 (^^E= >“ : HTAB 13: PRIffT “<= POTENZA 

=)“: HTAB 13: PRINT *<= PARZIALE =>*:K1 = INT ( ABS (60 * W)): HTAB 

15; PRINT 'yENTO *;K1;' • \H\ m (y) + 1)?' VTAB 5; PRINT ; RETURN 

12188 mB 21: ■T'AB K1;X = Ad); GOTO 12128 

12118 '/TAB 22; HTAB K1;X = PUd) 

12128 PRir^ .EFT-$ ( 3Tf^$ (X) + »,3); RETURN 

13080 REM WIND 

13810 y = yi * ( Rf^D d) - .5): RETURTi 
14880 REM COrfriNUA? 

14010 «vTAB 24; INVERSE : PRIfff '(SPAZIO) PER CONTINUARE,(ESC) PER USCIRE'; 

; NORMAL : GEI X$; IF ASC (X$) = 27 TH&^ HOME : POP : END 

14820 RE^URf^ 

28808 REM PROGRAfttt PRINCIPALE 

20010 GOSUB 14010: GOSUB 13810:BG = 1 
28020 P = BG:BG = NOT BG 

20030 GOSUB 3010: FOR I = 8 TO 1: GOSUB 5018: NEXT I: GOSUB 12010 
21000 REM ORASSIMO GIOCATORE 

21010 IF GS THEN HCOLOR= 0: GflSUB 3020: GOSUB 13010: HC0L0R= 3: GOSUB 302 
8 

21020 HT = ORE (0):HT = 8:P = NOT P: GOSUB 2010:XM = 3X(P) ♦ 15 « C:TM = 

GY(P) - 15 » S:XO = GX(P):YO = GY(P):VA = PO » SOR (PU<P)):yO = UA » 

C:VO = - 'UA » S 

21030 GOSUB 7010: POKE P5 + 1,8: CALI P5: POKE P5 + 1,28: GOSUB 7010: SCALE=' 
1:GOTCÓ10 

25000 REM UN'ALTRA PARTITA? 

25010 GOSUB 14010: TEXT : HOME : VTAB 7; PRM "0001 LA STESSA SITUA21C«E( 
S/N)?': PRINT : PRINT 'BATTI <CTRL> PER ELINIfWRE IL UENTOI'ì 
25020 GET X$:X = ASC (X»):GS = 1: IF X < 32 THEN GS = 0 
25030 IF (X < > 78) (VID (X < ) 14) THEN HOME : GOTO 20028 

25040 LTTAB 20: HTAB G: FLASH : PRINT 'CI VUOLE UN PO' 01 TEMPO' ': NORfWL 

: GOSUB é010: GOTO 20020 
30008 REM ISTRUZIONI 

30010 TEXT : HOME 

30020 VTAB 2: HTAB 14: PRINT 'ARTILLERY DUEL': VTAB 3: HTAB 13: PRINT '»»« 

38838 VTAB 5; PRINT 'IL GIOCO SIMULA LWA BATTAGLIA TRA DUE im^l DI AR 

TIGLIERIA.'; PRINT. 'L'OBBIETTM E' QUELLO DI ABBATTERE IL CANT^OT^E AV 
VERSARIC SU iWC SFOT^DO DI’; PRINT 'BAHAGLIA E IN m POSIZICWE DI UCL 
TA'; PRINT 'IN L^OLTA DIFFERENTI.' 

30048 PRIffT ; PRINT 'CON LE PADDLES REGOLI PRIMA L^ELB/^AZIOT^EE DI SEGUITO 
LA POTENZA DEL TUO TIRO, COT^FERM^DO LE TUE SCELTE PREMENDO IL f^UL 
SAfCiE.' 

38050'* PRINT ; PRINT 'AnB^ZlCf^E! DEVI TENER CONTO DEL VENTO': PRINT 'CHE S 
gFF^^NELLA DIREZII^^E INDICATA'; PRUfT 'DALLA B^^DERUOLA IN ALTO ALLO 

30068 '^Rir^r'; PRINT 'IMA VOLTA ASSESTATO IL CANNONE...FUOCO.": ‘'fTAB 23; PRINT 
'♦^COPYRIGHT 9Y AP^LICAiNDO >k MICROSPARC«'; ; VTA8 23; PRINT ; RETURN 



contiene Tondulazione (anche qui so¬ 
lamente 140 punti). Il secondo campo 
dati è ciclico, il che significa che c’è 
una transizione senza interruzioni dal 
punto 140 al puntò 1. 

Viene poi generato il paesaggio 
Y(I), sostanzialmente con la modifica 
dei due campi dati da punto a punto, 
avviando il campo di ondulazione ci¬ 
clico da qualche numero casuale fra 1 e 
140. L’altezza è normalizzata e variata 
da un altro numero casuale. I campi 
dati sono memorizzati come valori di 
un byte, partendo da PI e P2. 

Introduzione del 
programma 

Per introdurre il programma si digiti 
dapprima il Duello d’artiglieria come 
nel listato 1 e lo si salvi su dischetto. 
Quindi si digiti la tavola delle figure 
come nel listato 2 e la si salvi su di¬ 
schetto con BSAVE SHAPES, 
A$5000, L$289. 

Si può cambiare il livello di difficol¬ 
tà e qualche caratteristica della presta¬ 
zione fuori linea mutando certi para¬ 
metri. Essi sono (vedi linea 310): la 
gittata massima (POWER), l’influen¬ 
za della forza di gravità (GRAVITA), 
il coefficiente d’attrito (FRICT), la ve¬ 
locità del vento possibile al massimo 
(WIND), la precisione di tiro richiesta 
per colpire il bersaglio (ACCURA- 
CY) e l’altezza massima della monta¬ 
gna (HEIGHT). 



RAG. CAPOVILLA E. & Glu. 

35121 PADOVA - GALLERIA SCROVEGNI, 5 
TELEFONI (049) 28.998 - 30.117 


• HARDWARE 

• SOFTWARE 

• PERIFERICHE 

• ACCESSORI 


Distribuzione per l’Italia 
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In tempo reale dà il quadro esatto di come vanno 
i propri investimenti finanziari. Molto semplice come struttura, 
con cinque prospetti riepilogativi e un grafico con 52 periodi di quotazioni, 
Investor è uno dei programmi più completi in questo settore. 


Investor 
in portafoglio 


O gni giorno, alla chiusura della 
borsa molti vorrebbero conosce¬ 
re quanto sta rendendo il proprio por¬ 
tafoglio di azioni. Non a caso sapere 
con esattezza se si guadagna o si perde 
e in che misura oggi è divenuto indi¬ 
spensabile, soprattutto in un mercato 
come quello italiano soggetto a forti 
oscillazioni. Ma è anche un lavoro lun¬ 
go e noioso, che significa annotare il 
tipo e il numero di titoli, registrare la 
data e i quantitativi acquistati e vendu¬ 
ti, tracciare il movimento dei volumi e 
delle quotazioni, calcolare la forza del 
mercato. Per incostanza o mancanza 


di tempo, alla fine non si tiene nota di 
nulla o quasi, decidendo di vendere o 
di comprare più a naso che a ragion 
veduta. Se poi fossimo in America, 
all’epoca della dichiarazione dei red¬ 
diti, ci sarebbe anche il febbrile affac¬ 
cendarsi per mettere assieme i ticket 
delle commissioni d’agente, per rico¬ 
struire le informazioni sugli acquisti e 
calcolare il plusvalore di capitale a 
breve e lungo termine. Non siamo ne¬ 
gli Usa, e tuttavia queste informazioni 
farebbero comodo, no? 

È qui che scende in campo Investor. 
È semplice da usare. Darà in modo 


esauriente nota e analisi dei singoli in¬ 
vestimenti e del portafoglio globale, 
emetterà le informazioni necessarie 
per evidenziare il plusvalore di capita¬ 
le a breve e lungo termine, e traccerà 
le «charts» con curve, andamenti, isto¬ 
grammi, eccetera. 

Ecco le caratteristiche salienti del 
programma utilissimo non solo a chi 
investe in borsa: infatti, senza compra¬ 
re né vendere una sola azione, l’Inve- 
stor può essere usato anche da chi vuol 
simulare il gioco di borsa a scopo di 
addestramento, oppure da chi intende 
verificare la bontà di un investimento. 
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Analisi grafica 

• Andamento: massimo-minimo- 
chiusura 

• Media mobile 13 settimane 

• Media mobile 52 settimane 

• Indicatore di forza prezzo/mercato 

• Andamento volume settimanale 

• Volume medio 

• Prezzo massimo-minimo per il pe¬ 
riodo 

• Volume massimo-minimo per il pe¬ 
riodo 


Prospetti 

• Analisi di mercato 

• Analisi di rendimento 

• Analisi delle vendite 

• Analisi di mercato a breve/lungo 
termine 

• Analisi delle vendite a breve/lungo 
termine 


Gestione dati 

• Aggiungere un investimento 

• Modificare un investimento 

• Vendere un titolo 

• Depennare un titolo 

È stato anche predisposto nel re¬ 
cord dei dati un campo aperto, in mo¬ 
do che si possano estendere le analisi a 
ciò che si preferisce. 


L’uso deirinvestor 

Molto importante. Non si cerchi di 
far girare Investor come programma a 
sé. Esso ha bisogno infatti che sia fatto 
girare prima il programma di carica¬ 
mento Carica Investor per caricare la 
tavola delle figure e per impostare i 
puntatori di memoria, in modo che 
Investor sia caricato sopra la pagina l 
della grafica ad alta risoluzione. 

Se si cerca di far girare Investor di¬ 
rettamente (cioè senza usare il carica¬ 
tore di Investor) funzionerà a dovere 
fino a quando si chiederà l’opzione 
grafica. A questo punto la pulitura 
dello schermo grafico cancellerà parte 
del programma dell’Investor (che si 
accavalla con la pagina di grafica ad 
alta risoluzione). ^ 

Quando si farà girare per la prima 
volta Investor (usando Carica Inve¬ 
stor) non si avranno dati in alcuno dei 
file. Lo schermo si pulirà e visualizzerà 
il menù (vedere figura 1). 

Ora si può solo scegliere l’opzione 
A) AGGIUNGERE UN NUOVO 
INVESTIMENTO. Il programma 
chiede il nome dell’investimento per il 
record (vedere foto 2). Importante è 


APPLICANDO IWESTOR 
BY ALEX LAIRD 

AiGGIUNGERE UN INVESTIMENTO 

UILTIMI PREZZI 01 MERCATO 

M)0DIFICARE UN TITOLO 

P)0RTAF0GLI0 

V)EN0ERE UN TITOLO 

D)EPEM^RE UN TITOLO 

GRAFICI 

R)ESOCONTI VARI 

F)INIRE 

COPYRIGHT 1983 
APPLIC^DO ^ MICROSPARC 


Fig. 1 


SCRIVI IL RECORD DEL NUOVO TITpLO 

y 

SCRIVI IL NOME DEL TITOLO.SE SONO 
STATI FATTI ALTRI ACQUISTI DEVI 
SCRIVERE LO STESSO NOME. 


NOME I1^E3T..{ OATALOGO ..(RTN) MENU > 
SCEGLI;KKK 

QUESTO ACQUISTO SARA'': 

KKK - )1 

BATTERE RETURN PER CONTINUARE 


Fig. 2 

battere lo stesso nome del titolo usato 
per le precedenti immissioni. Investor 
tiene anche nota della progressione 
degli acquisti usando per ogni opera¬ 
zione un numero d’ordine (LOTTO 1, 
LOTTO 2, ecc.). 

Dopo aver introdotto il NOME il 
programma ispezionerà il file alla ri¬ 
cerca di altre eventuali immissioni fat¬ 
te. Se ne trova ricupererà il LOTTO 
del precedente acquisto. Poi incre¬ 
menterà automaticamente il numero 
di LOTTO per identificare il nuovo 
acquisto. Questo sarà visualizzato sul¬ 
lo schermo (vedere figura 2). 

Infine lo schermo si pulirà e visualiz¬ 
zerà quanto si vede sulla figura 3. 

Si noti che la sequenza di acquisto 
dei lotti è impostata su 1 se si tratta del 
primo acquisto di un determinato tito¬ 
lo. Adesso però è bene limitarsi a in¬ 
trodurre semplicemente le informa¬ 
zioni segnalate dal cursore. Si cerchi 
però di tenere i nomi corti (6 caratteri 
o meno) ma descrittivi. Investor ab¬ 
brevierà i nomi a 6 caratteri nei vari 


prospetti prodotti. Si introduca poi il 
numero di azioni come numero effetti¬ 
vo delle azioni acquistate, e si batta il 
prezzo d’acquisto come numero deci¬ 
male. 

Al termine dell’introduzione delle 
informazioni per un nuovo investi¬ 
mento si avrà la scelta fra confermare 
le immissioni e reintrodurle. Quando 
si è accettata l’introduzione delle in¬ 
formazioni per un nuovo titolo acca¬ 
dranno due cose: 

• Primo: i dati di base che sono stati 
appena introdotti saranno aggiunti al 
portafoglio e memorizzati nel file IN- 
VEST. 

• Secondo: un file PREZZO settima¬ 
nale oppure quotidiano (a secondo di 
come si sceglie di inserire i dati) sarà 
inizializzato per il NOME del titolo 
che è stato appena introdotto. Questo 
file PREZZO viene usato per aggior¬ 
nare e salvare i prezzi massimo- 
minimo-di chiusura settimanali (o 
quotidiani), il volume delle vendite e la 
data dell’investimento. Si suggerisce 
di provare inizialmente Investor con 
un’azione fittizia o campione, per fa¬ 
miliarizzarsi con le sue funzioni. 

Fig. 3 


BATTI IL PREZZO DI HERCATO CORRENTE 
HASSIHO/HINinO/CHIUSURA 

NOME IMVEST..< OATALOGO ..(RTN) HENU > 

SCEGLI 5AAA 

NONE :AAA 

«ASS. :1250 

MIN. :1200 

CHIUS. !l230 

VOLUME :2000 

61 (1-31) :2l 

ME (1-12) ;3 

ANNO ;83 

RETURN=ACCETTARE...'R’=REINTRODURRE 


Aggiornamento dei dati 
di mercato 

L’aggiunta di un nuovo titolo crea 
automaticamente un file dei prezzi con 
il NOME dell’investimento. Il file vie¬ 
ne usato per conservare i prezzi di 
mercato settimanali (o quotidiani) e i 
volumi dell’investimento. Quando si 
sceglie l’opzione U)LTIMI PREZZI 
DI MERCATO lo schermo si pulisce e 
chiede il NOME dell’investimento. 

Questa opzione e tutte le altre op¬ 
zioni permettono di tornare al menù 
principale premendo il tasto RE- 
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TURN. Se si desidera si avrà premen¬ 
do il tasto C la visualizzazione del CA¬ 
TALOGO. 

Quando si è introdotto il NOME da 
trovare il programma pulirà lo scher¬ 
mo e visualizzerà ciò che appare in 
figura 4. 

mimi UN NUOVO imsi 

<GIORNO=1-31 MESE=1-12) 

NOME ^ 

SEQ.ACQ. 1 
N. AZIONI 
PREZZO ACQ. 

GIORNO ACQ. 

MESE ACQ. 
miQ ACQ. 

DV1P0 N.l 
DIVIDENDO 

Fìg. 4 

Adesso si possono semplicemente 
introdurre le quotazioni massima, mi¬ 
nima e di chiusura deirinvestimento. 
Il volume viene introdotto come ven¬ 
dite in centinaia (per indicare 7000 
azioni battere 70, per 11450 battere 
114.50). Infine si introdurrà la data. Il 
mese viene introdotto come valore da 
1 a 12 e il giorno come valore da 1 a 31. 

Questo file viene usato ddXVopzione 
grafica per tracciare l’andamento di un 
investimento. È usato anche da un cer¬ 
to numero delle opzioni dei prospetti 
per registrare i prezzi di mercato cor¬ 
renti ai fini dell’analisi guadagno/per¬ 
dita. È importante tenere aggiornato 
questo file dato che è la base per segui¬ 
re il corso degli investimenti. 

Modificare i dati 
di un investimento 

Qualora si faccia un errore nell’in- 
trodurre informazioni sia di base sia di 


prezzi, si ha la possibilità di modificare 
o il file principale INVEST, o il file 
prezzi/NOME, o il file VENDITE. 
Quando si sceglie l’opzione M)ODI- 
FICARE, Investor chiederà di intro¬ 
durre il NOME dell’investimento. 
Viene data anche l’opzione di tornare 
(RETURN) al menù principale o di 
visualizzare il C)ATALOGO per rin¬ 
frescarsi la memoria sui nomi dei titoli 
attualmente in file. 

Se si sceglie il file P)RINCIPALE si 
avrà la richiesta di introdurre un LOT¬ 
TO o passare per difetto al LOTTO 1 
premendo RETURN. Lo schermo si 
pulirà, il dischetto si metterà a girare e 
poi sarà visualizzato il titolo principale 
con tutte le corrette informazioni. Il 
cursore sarà posizionato sopra il primo 
carattere del NOME. Si può premere 
RETURN per accettare un settore vi¬ 
sualizzato così com’è. Quando si rag¬ 
giunge l’area da cambiare possono es¬ 
sere digitate le nuove informazioni, 
che saranno automaticamente sosti¬ 
tuite alle vecchie informazioni (e vi¬ 
sualizzate). 

Se si sceglie il file prezzoìNOME il 
dischetto si metterà a girare e quindi 
visualizzerà il numero dei lotti che si 
trovano attualmente nel file NOME. 
Si può allora scegliere il lotto da visua¬ 
lizzare per l’editing (si tratterà nor¬ 
malmente del record # più alto/più 
recente del file). Da questo punto in 
poi il programma gira in modo identi¬ 
co alle modifiche del file principale. 

Se si sceglie il file VENDITE il di¬ 
schetto si metterà a girare e poi visua¬ 
lizzerà una lista dei titoli che esistono 
al momento nel file vendite (con data 
vendita, prezzo, ecc.). Si sceglie poi il 
recorda^ da visualizzare per le corre¬ 
zioni e si seguirà il procedimento nor¬ 
male di modifica. 

li portafoglio 

Se in un qualsiasi momento si vuol 
vedere un sommario degli investimen¬ 


ti che ci sono nel file si può scegliere 
sul menù principale l'opzione P)OR- 
TAFOGLIO. Lo schermo si pulirà e 
visualizzerà un sommario delle infor¬ 
mazioni di base, come indicato dal se¬ 
guente file esemplifcativo (in fig.5): 
Si noti che si può vedere il portafoglio 
o sul V)IDEO 0 sulla S)TAM- 
PANTE. 


Vendere un titolo 

Quando si inserisce per la prima vol¬ 
ta un titolo nel file principale INVEST 
le informazioni di vendita non esisto¬ 
no. Quando però si decide di vendere 
un titolo, lo schermo si pulirà e verrà 
chiesto il NOME del titolo (e le richie¬ 
ste sono praticamente identiche a 
quelle usate per le modifiche), vedere 
figura 6. 

Quando il titolo da vendere viene 
trovato, tutte le sue informazioni base 

GRAFICI APPLIC^IDO INVESTOR 

QUESTA OPZIONE PRESENTA; 

» PREZZO MASS./MIN/CHIUSURA 

» MEDIA MOBILE DEL PREZZO 

» VOLUME VENDITE 

» MEDIA VOLUME VENDITE 

* PREZZO MASS.PER IL PERIODO 

* PREZZO MIN. PER IL PERIODO 

* VOLUME f^SS.PER IL PERIODO 

* VOLUME MIN. PER IL PERIODO 

NOME IWEST..< OATALOGO ..(RTN) MENU > 

SCEGLI;AA 

Fig. 6 

vengono visualizzate in formato modi¬ 
fiche. Tuttavia il cursore è situato in 
corrispondenza della posta PREZZO 
DI VENDITA perché lo si segnali im¬ 
mediatamente. Poi il cursore si posi¬ 
zionerà sopra le voci del GIORNO DI 
VENDITA, MESE DI VENDITA, 
ANNO DI VENDITA, e della 
QUANTITÀ DA VENDERE. Que¬ 
ste informazioni saranno usate per vi¬ 
sualizzare/stampare il guadagno/per¬ 
dita nelle vendite nei diversi prospetti. 

Una volta accettate le informazioni 
sulle vendite, la quantità d’acquisto è 
ridotta della quantità venduta. Poi i 
dati delle vendite vengono memoriz¬ 
zati nel file principale/INVEST e il re¬ 
cord aggiornato è immagazzinato su 
dischetto. In questo modo i vari pro¬ 
spetti di mercato e rendimento riflet¬ 
tono sempre le azioni effettive che re¬ 
stano nel portafoglio. 

Lo stesso principio vale per il file 
VENDITA, nel quale viene registrata 
l’operazione. Il file vendite accumula 


Fig. 5 

PORTAFOGLIO 


AZIONI 

A/V 

LOTTO N. 

Q.TA’ 

PREZZO 

DATA ACQ. 

AAA 

V 

1 

70 

1000 

21/1/83 

BBB 

V 

1 

60 

6000 

3/3/83 

DEF 

A 

1 

50 

10000 

12/5/83 

DEF 

A 

2 

60 

10500 

20/6/83 

DEF 

V 

3 

40 

10100 

30/6/83 

AAA 

A 

2 

80 

1050 

15/7/83 

FFF 

A 

1 

150 

5000 

20/9/83 

HHH 

V 

1 

100 

850 

25/9/83 

666 

A 

1 

60 

15000 

1/10/83 
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gradualmente le transazioni di vendi¬ 
ta, e viene usato per i prospetti di gua¬ 
dagno/perdita nelle vendite. Se in un 
periodo di tempo vengono fatte diver¬ 
se transazioni parziali di vendita, 
ognuna di esse sarà registrata (e riferi¬ 
ta) separatamente di mano in mano 
che la quantità di portafoglio declinerà 
(con ciascuna vendita). 

Per cancellare un titolo 

Quando si vuole D)EPENNARE 
un titolo dal file principale/INVEST o 
dal file VENDITE si digita il NOME e 
il LOTTO (se è il caso) delFinvesti- 
mento da cancellare. 

Quando si cancella il nome di un 
titolo dal file principale/INVEST esso 
viene completamente rimosso dal file 
principale. I restanti record del file 
vengono poi spostati avanti per colma¬ 
re il buco creato dalla cancellazione. Il 
file prezzo/NOME non è influenzato 
dalla cancellazione del titolo dal file 
principale, ma può essere annullato da 
tastiera usando il normale comando 
DELETE Apple-soft/DOS. 


MODIFICA/RECORD VENDITE ^ N.l 

REGISTRA NU(Xd DATI OPPURE BATTI 
RETURN PER ACCETTARE IL DATO GIÀ' 
INSERITO. 

<6IGRNO=l-3I ME3E=1-12> 

NOHE m 

SEO.ACQ. 1 

N.AZIOrd 30 

PREZZO ACQ. 1000 
GIORNO ACQ. 3 
MESE ACQ. 5 

ACQ. 83 

PREZZO m\). 

GIORNO VEND. 

MESE VBID. 

VEND. 

QTAVEND. 

CAMPO N.l 
DIVIDENDO 


Fig. 7 

Quando si cancella un titolo dal file 
VENDITE tutti i titoli che contengo¬ 
no il nome e il LOTTO su cui si sta 
intervenendo, vengono cancellati e i 
restanti record vengono spostati in 
avanti per riempire il buco o i buchi 
creati dalla cancellazione. In altre pa¬ 
role la cancellazione di un titolo dal 
file vendite rimuove tutte le transazio¬ 
ni di vendita di quel titolo. 

Quando si sceglie sul menù princi¬ 
pale l’opzione G)RAFICI lo schermo 
si pulirà e visualizzerà ciò che appare 
in figura 7. 


Per illustrare l’opzione di tracciato 
dei grafici Investor, è stato costruito 
un file esemplificativo di dati di merca¬ 
to per le azioni AAA (vedere fig. 8). 

Investor indica per ciascun titolo au¬ 
tomaticamente una variazione verso 
l’alto o il basso di 60 punti attorno al 
prezzo. A mano a mano che un inve¬ 
stimento nel tempo esce dal suo cam¬ 
po iniziale, il visualizzatore si adatterà 
automaticamente al nuovo arco. 

Attenzione, però: una fascia massi¬ 
ma di 60 punti copre dal «massimo più 
alto» al «minimo più basso» durante il 
periodo del tracciato. Se il campo del¬ 
l’attività del titolo oltrepassa i limiti di 
questa fascia, le medie mobili conti¬ 
nueranno a essere visualizzate, ma i 
singoli prezzi non saranno tracciati fin¬ 
tanto che non torneranno entro il cam¬ 
po del plottaggio. 

Nella metà superiore del video sono 
visualizzati in forma di barra verticale 
il prezzo massimo e il prezzo minimo. 
Il prezzo di chiusura è mostrato in for¬ 
ma di punto entro il campo massimo/ 
minimo. Per le quotazioni vengono 
calcolate due medie mobili. 

La media mobile di 13 settimane 
(oppure giorni) interviene con la tredi¬ 
cesima immissione nel file dei prezzi. 
Essa riflette una attenta sensibilità alle 
fluttuazioni dei prezzi e segue ragione¬ 
volmente da vicino l’andamento delle 
variazioni di prezzo. 

La media mobile di 52 settimane 
(oppure giorni) rappresenta l’anda¬ 
mento del titolo. Essa è una media 
mobile cumulativa durante il primo 
periodo (1-52) di 52 settimane. In se¬ 
guito rappresenterà una media mobile 
scorrevole di 52 settimane. Dato che 
copre un periodo assai più lungo, essa 
tende a muoversi più lentamente in 
risposta alle fluttuazioni di prezzo. 


Investor è congegnato per tracciare 
il grafico dell’andamento di un titolo 
in un periodo di 52 settimane oppure 
giorni. Quando un file prezzo/NOME 
cresce oltre le 52 informazioni, Inve¬ 
stor sceglierà automaticamente i 52 re¬ 
cord più recenti per fare il tracciato. I 
record antecedenti restano nel file e si 
può scegliere di fare una propria anali¬ 
si del movimento storico dei prezzi. 

Immediatamente al disotto dell’asse 
settimanale Vindicatore Pr F rappre¬ 
senta un tracciato della forza relativa 
del prezzo (è quel che gli americani 
chiamano relative price strength). Es¬ 
so rappresenta la differenza percentua¬ 
le fra le medie mobili di 13 e 52 settima¬ 
ne (in incrementi del 10%). Si noterà 
nell’esempio che l’indicatore di forza 
del prezzo rimane positivo fintanto 
che la media mobile di 13 settimane è 
più alta della media di 52 settimane. 
Alla ventiseiesima settimana, quando 
la media di 13 settimane si sposta sotto 
la media di 52 settimane, l’indicatore 
di forza del prezzo si porta in una posi¬ 
zione negativa. Poi si sposta in una 
posizione negativa più profonda alla 
ventottesima settimana. 

Infine il volume delle vendite viene 
scalato al volume più alto del periodo 
coperto e tracciato come serie di linee 
verticali. Alla conclusione dei singoli 
tracciati il volume medio viene dise¬ 
gnato come linea orizzontale attraver¬ 
so le vendite. 

Il valore del tracciato consiste nella 
chiara rappresentazione grafica dei 
rapporti prezzi/volumi/medie. L’ana¬ 
lisi classica tende a dare importanza ad 
azioni come: 

• Rialzo/ribasso di prezzo in un volu¬ 
me superiore alla media. (È pervenuta 
al mercato qualche nuova informa¬ 
zione?) 
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HAI LA SCHEDA <80 COLONNE) ’(S/N) S 
RESOCONTI m\ ÌW^ESTOR 

1=ANALISI DEL MERCATO 

2=ANALISI DEL RENDIMENTO 

3=^V^LISI DELLE VENDITE 

4=AWALISI MERCATO BREVE/LUN60 TERMINE 

5=i^LISI VENDITE BREVE/LUNGO TERMINE 


OPZIONE 1-3 SU VIDEO 0 ST^VIPANTE. 

OPZIONE 4-5 SOLO SU STPtflPANTE. 

RESOCONTI VARI (1-5) 

0 (RETURN) PER IL MEI^U: 1 
V)IDEO 0 S)T^P^E I V 
SCEGLI IL NOME DEL TITOLO. 

(RETURN) PER TUTTI ; 

Fig. 9 

• Rialzo/ribasso di prezzo in un volu¬ 
me inferiore alla media. (Il titolo viene 
tenuto stretto ed è mutevole in piccolo 
volume?) 

• Affievolimento della forza del prez¬ 
zo. (Quando la media mobile di 13 
settimane cade al disotto della media 
di 52 settimane ciò segnala una posi¬ 
zione fondamentale in deterioramen¬ 
to per l’investimento? E al contrario 

FIg. 10 


quando un investimento è costante- 
mente al disopra del suo comporta¬ 
mento storico sta cercando un nuovo 
livello di stabilità?). 

Ci sono altri rapporti che certi anali- 
'sti considerano segnali importanti, va¬ 
le a dire i modelli costanti dei prezzi di 
chiusura alla quotazione minima (o 
massima) del periodo, l’arco dei prezzi 
massimo/minimo, e così via. 

l resoconti possibili 

Quando si scelgono sul menù princi¬ 
pale i R)ESOCONTI VARI, lo scher¬ 
mo si pulirà e visualizzerà la figura 9. 

I primi tre prospetti sono disponibili 
sia sullo schermo sia su stampante (se 
si ha la scheda 80 colonne), che si pre¬ 
sume sia parallela e nello SLOT# 1. 

Tutte le informazioni possono esse¬ 
re visualizzate o stampate per titolo, 
battendo NOME, o per l’intero porta¬ 
foglio premendo RETURN (vedere fi¬ 
gura 10). 

Analisi del mercato. Questo pro¬ 
spetto legge il file principale per avere 
i dati costo/prezzo e poi legge i dati del 
prezzo più recente nel file prezzo/NO- 
ME per sviluppare il valore di mercato 
corrente. Viene calcolato e visualizza¬ 
to/stampato il guadagno o perdita as¬ 
soluto e percentuale (fra il costo e il 
corrente valore di mercato) in figura 
11 . 


Analisi del rendimento. Questo pro¬ 
spetto usa i dati di dividendo contenuti 
nel file principale per calcolare un va¬ 
lore assoluto e percentuale dei dividen¬ 
di. Il rendimento è calcolato usando i 
dividendi come percentuale del costo 
di acquisto (figura 12). 

Analisi delle vendite. Questo pro¬ 
spetto legge il file VENDITE cercan¬ 
do record che contengano dati di ven¬ 
dita, vale a dire PREZZO DI VENDI¬ 
TA e così via. Poi calcola il valore 
assoluto e percentuale del guadagno o 
della perdita nella vendita (figura 13). 

Analisi del mercato a breve/lungo 
termine. Rappresenta una concreta 
espansione della posizione corrente di 
guadagno/perdita per un singolo inve¬ 
stimento o per l’intero portafoglio. In- 
vestor legge i dati di costo sul file prin¬ 
cipale e i dati del prezzo corrente sul 
file prezzo/NOME relativo all’investi¬ 
mento. Poi calcola il guadagno/perdita 
in termini assoluti e percentuali. Di 
particolare interesse nel prospetto so¬ 
no le colonne GLT e B/L, che rifletto¬ 
no esigenze fiscali negli Stati Uniti (il 
programma è originariamente ameri¬ 
cano), ma che abbiamo mantenuto 
perché forniscono un’indicazione in 
più. 

GTE mostra il numero dei giorni 
che devono ancora passare perché l’in¬ 
vestimento si qualifichi per il plusvalo¬ 
re a lungo termine. Questo si basa su 
un calcolo del numero di giorni inter¬ 
corsi fra la data di acquisto e la data del 
prezzo più recente nel file prezzo/NO¬ 
ME. Il numero viene poi comparato 
con 365 giorni (12 mesi) per determi¬ 
nare il numero dei giorni mancanti per 
la classificazione a lungo termine. 

A/V mostra l’operazione di acquisto 
o vendita per ciascun investimento. 

B/L mostra lo stato corrente {gua- 
dagnolperdita plusvalore a brevellun- 
go termine) dell’investimento (o degli 
investimenti) in corso di esecuzione. Il 
plusvalore a breve termine e quello a 
lungo termine vengono poi compen¬ 
diati alla fine del prospetto (figura 14). 

Analisi delle vendite a breve/lungo. 
Il prospetto riassume i totali dei plu¬ 
svalori e delle perdite di capitale a bre¬ 
ve e lunga scadenza usando il metodo 
descritto sopra. Infine mostra i guada¬ 
gni e le perdite assoluti e percentuali 
per quegli investimenti che sono stati 
effettivamente venduti. 

Come battere Investor 

Investor si compone di tre parti: la 
tavola delle figure, il caricatore di In¬ 
vestor, e rinvestor vero e proprio. 

Per introdurre la tavola delle figure 


ANALISI DEL RENDIHENTO 


AZIONI 

LOTTO N. 

Q.TA^ 

COSTO 

DV/AZ 

DIV 

XREND 

AAA 

1 

70 

70000 

20 

1400 

2.0 

BBB 

1 

60 

360000 

10.5 

630 

.2 

DEE 

1 

50 

500000 

15 

750 

.2 

DEE 

2 

60 

630000 

7.50 

450 

.1 

DEE 

3 

40 

404000 

8.90 

355 

.1 

AAA 

2 

80 

84000 

15 

1200 

1.4 

EEE 

1 

150 

750000 

9.90 

1484 

.2 

HHH 

1 

100 

85000 

5.50 

550 

.6 

GGG 

1 

60 

900000 

12.20 

731 

.1 




3783000 


7550 

.2 


Fig. 11 

ANALISI DELLE VENDITE 


AZIONI 

LOTTO N. 

Q.TA^ 

COSTO 

VENDITE 

GN/PE 

ze/p 

AAA 

1 

30 

30000 

33000 

3000 

10.0 

BBB 

1 

60 

360000 

361200 

1200 

.3 

DEE 

3 

30 

303000 

303900 

900 

.3 

HHH 

1 

100 

85000 

100000 

15000 

17.6 




778000 

798100 

20100 
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si entri dapprima nel monitor digitan¬ 
do CALL-151. Poi si cominci a intro¬ 
durre la tavola delle figure comincian¬ 
do airindirizzo $1800, digitando: 
1800:ID 00 3C 00 43 00 4C 00 

Come regola generale si possono in¬ 
trodurre 6 linee di codice prima di pre¬ 
mere RETURN. Dopo aver premuto 
RETURN si può battere un due punti 
e continuare introducendo le sei linee 
successive, e così via. 

Quando sono state completamente 
introdotte le tavole delle figure si pre¬ 
me CTRL C e RETURN per rientrare 
in Applesoft. Per salvare le tavole su 
dischetto si deve battere: 

BSAVE FIGURE DI INVESTOR, 
A$1800,L$448. 

Adesso si possono digitare Carica 
Investor e Investor, e li si può salvare 
su dischetto con i comandi: 

SAVE CARICA INVESTOR 
SAVE INVESTOR. 


Come gira 

Come si è già visto Investor è com¬ 
posto di tre parti. Carica Investor, e 
Figure di Investor e Investor propria¬ 


ANALISI 

AZIONI 

DEL MERCATO 
LOTTO N. 

Q.TA* 

COSTO 

VMC 

GN/PE 

ZB/P 

AAA 

1 

70 

70000 

75600 

5600 

8 

6 BB 

1 

60 

360000 

348000 

-12000 

-4 

DEE 

1 

50 

500000 

545000 

45000 

8 

DEE 

2 

60 

630000 

654000 

24000 

3 

DEE 

3 

40 

404000 

436000 

32000 

7 

AAA 

2 

80 

84000 

86400 

2400 

2 

EEE 

1 

150 

750000 

855000 

105000 

14 

HHH 

1 

100 

85000 

98000 

13000 

15 

co 

co 

CD 

1 

60 

900000 

918000 

18000 

2 




3783000 

4016000 

233000 

6 


Fig. 12 


mente detto. 

Carica Investor è un breve program¬ 
ma che deve essere girato per caricare 
la tavola delle figure ed eseguire Inve¬ 
stor: imposta il LOMEM e i puntatori 
d’inizio del programma perché-Inve¬ 
stor sia caricato proprio al disopra del¬ 
la pagina 1 della grafica ad alta risolu¬ 
zione. l’oi provvede a posizionare i 
puntatori della tavola delle figure. In¬ 
fine fa girare Investor. 


Le Figure costituiscono una tavola 
di 39 figure che vengono usate per 
tracciare i grafici. Vengono caricate in 
memoria cominciando alla locazione 
$1800 (sotto la pagina I della grafica 
ad alta risoluzione). 


il menù 

Quando Investor viene eseguito la 


Fig. 13 

ANALISI DEL HERCATO A BREVE/LUN60 TERMINE 


AZIONI 

LOTTO N. 

Q.TA» 

DATA ACQ. 

COSTO 

PR.CQRR. 

VALORE CORR. 

GLT 

A/V 

GUADAGNO/PERDITA 

B/L 

l G/P 

AAA 

1 

70 

21/1/83 

70000 

1000 

75600 

245 

V 

5600 

B 

7.99 

BBB 

1 

60 

3/3/83 

360000 

6000 

348000 

5 

V 

-12000 ' 

B 

-3.34 

DEE 

1 

50 

12/5/83 

500000 

10000 

545000 


A 

45000 

L 

9.00 

DEE 

2 

60 

20/6/83 

630000 

10500 

654000 

64 

A 

24000 

B 

3.80 

DEE 

3 

40 

30/6/83 

404000 

10100 

436000 

364 

V 

32000 

B 

7.92 

AAA 

2 

80 

15/7/83 

84000 

1050 

86400 

71 

A 

2400 

B 

2.85 

EEE 

1 

150 

20/9/83 

750000 

5000 

855000 

215 

A 

105000 

B 

14.00 

HHH 

1 

100 

25/9/83 

85000 

850 

98000 

215 

V 

13000 

B 

15.29 

666 

1 

60 

1/10/83 

900000 

15000 

918000 

245 

A 

18000 

B 

1.99 





3783000 


4016000 



233000 


6.15 


BUADA6N0/PERDITA A BREVE TERMINE; 18B000 
fiUADASNO/PERDITA A LUNGO TERMINE; 45000 


Fig. 14 


ANALISI DELLE VENDITE A BREVE/LUNGO TERMINE 


AZIONI 

LOTTO N. 

Q.TA' 

DATA ACQ. 

COSTO 

PR.VEND. 

VALORE VEND. 

DATA VEND. 

GUADAGNO/PERDITA 

B/L 

I G/P 

AAA 

1 

30 

21/1/83 

30000 

1100 

33000 

25/3/83 

3000 

B 

10.00 

BBB 

1 

60 

3/3/83 

360000 

6020 

361200 

5/5/83 

1200 

B 

0.33 

DEE 

3 

30 

30/6/83 

303000 

10130 

303900 

31/9/83 

900 

B 

0.29 

HHH 

1 

100 

25/9/83 

85000 

1000 

100000 

28/11/83 

15000 

B 

17.64 





778000 


798100 


20100 


2.58 


6UADAGN0/PERDITA A BREVE TERMINE; 20100 
GUADAGNO/PERDITA A LUNGO TERMINE: 0 
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prima volta (da Carica Investor), il 
programma va a vedere se esiste un 
file principale INVEST. Se non esiste 
ancora un file INVEST ne viene inizia- 
lizzato uno alla linea 610. 

Il menù principale per Investor co¬ 
mincia con la linea 2810. Si noterà che 
ogni volta che Investor viene eseguito 
si ha il CLEAR della memoria e ven¬ 
gono ridimensionate le variabili. Que¬ 
sto per risparmiare memoria. Investor 
usa le istruzioni di DIMensione sulla 
linea 2880 solo quando viene scelta 
una opzione di menù diversa dalla gra¬ 
fica. L’opzione dei grafici non usa le 
variabili di quelle linee dato che tratta 
solo un investimento alla volta. 

D’altro canto l’opzione grafica può 
essere DIMensionata separatamente 
secondo le sue esigenze, dato che deve 
essere in grado di contenere dati di 
prezzo e volume per 52 periodi di os¬ 
servazione. Ciò viene compiuto nella 
linea 2870. 

Usando questo metodo di dimensio¬ 
ni dinamiche, quando si sceglie l’op¬ 
zione vengono DIMensionate solo le 
variabili delle quali ha bisogno un par¬ 
ticolare gruppo di opzioni. 

Nelle linee successive vengono letti 
in variabili i campi di prospetto e le 
intestazioni da usare nei display di 
schermo e di prospetto di Investor. 

Il Menù dal canto suo è strutturato 
in modo che vi si acceda con la prima 
lettera dell’opzione desiderata. Ciò 
sulla base del presupposto che sarà più 
facile ricordare lettere anziché numeri 
per la scelta delle voci del menù. L’in¬ 
troduzione della scelta sul menù è a 
trappola di errore, di modo che sono 
accettate solo le lettere approvate. 

Quando è stata scelta sul menù una 
voce accettabile l’opzione viene ese¬ 
guita come subroutine nelle linee 
2890-2950 e quindi viene ripristinato il 
menù. 

Ognuna delle opzioni di Investor ha 
un’opzione di interruzione (abort) 
quale parte del suo menù di richiesta: 
premendo RETURN dopo aver rag¬ 
giunto una qualsiasi opzione si tornerà 
automaticamente al menù principale. 


Per aggiungere 
un investimento 

Quando si sceglie l’opzione A)G- 
GIUNGERE UN NUOVO INVE¬ 
STIMENTO viene eseguita la subrou¬ 
tine che comincia a linea 630. Viene 
dapprima aperto il file INVEST e ven¬ 
gono letti in memoria tutti i NOMI e i 
LOTTI usando la routine di lettura del 
dischetto. Si noti che praticamente 


tutte le routine di lettura e scrittura del 
dischetto sono scritte in modo da poter 
svolgere funzioni multiple. Per esem¬ 
pio impostando i conti di record e cam¬ 
po e i nomi di file come variabili cia¬ 
scuna routine può controllare quanti 
record e campi vengano letti o scritti 
come richiesto dalla routine. Le varia¬ 
bili di controllo sono: 

J = Comincia record da leggere 
R = Finisce record da leggere 
K = Numero di campi da leggere 
FI$ = Nome del file. 

Facendo svolgere a queste routine 
una doppia o tripla mansione, e in 
qualche caso anche di più, si può con¬ 
servare memoria, non dovendo ripete¬ 
re routine specializzate di lettura/scrit- 
tura del disco lungo tutto il pro¬ 
gramma. 

Quando viene richiesto il NOME 
del nuovo titolo la pressione del tasto 
C porterà alla visualizzazione del CA¬ 
TALOGO, oppure la pressione del ta¬ 
sto RETURN farà tornare al menù 
principale. Questa opzione di interru¬ 
zione (abort) è disponibile in tutte le 
subroutine. 

Quando viene scelto un NOME, In¬ 
vestor controllerà se corrisponde al 
nome di qualche titolo già acquistato 
in precedenza. In caso affermativo 
controllerà il LOTTO del precedente 
acquisto, lo mostrerà sullo schermo e 
poi lo incrementerà di 1 per il nuovo 
acquisto. 

Le linee 730-750 rappresentano l’ef¬ 
fettiva introduzione di dati per il nuo¬ 
vo investimento. Si noti che i campi 
A$(8)-A$(ll) sono impostati su 
blank. Si tratta dei campi del file prin¬ 
cipale che sono riservati per i dati di 
vendita di quando i titoli verranno alla 
fine venduti. Si noti anche che c’è un 
campo APERTO. Esso non è utilizza¬ 
to dal programma nella sua attuale im¬ 
postazione e potrà essere usato per 
futuri ampliamenti. 

Quando i dati sono stati introdotti e 
accettati viene eseguita nelle linee 
570-590 la subroutine WRITE FILE 
(scrittura del file) che viene usata sia 
per il file INVEST sia per quello VEN¬ 
DITE. Questo aggiunge il nuovo re¬ 
cord principale al file INVEST. Poi, se 
l’immissione è un nuovo titolo con un 
LOTTO 1, viene inizializzato nelle li¬ 
nee 770-780 1220-1250 un nuovo file 
prezzo/NOME. 

Per contro se sono stati fatti altri 
acquisti dello stesso titolo (e il LOT¬ 
TO è quindi maggiore di 1) questa ini- 
zializzazione di file prezzo/NOME è 
saltata. Se ne fa a meno perché il file 
prezzo/NOME che già esiste verrà 
usato per i dati di prezzo corrente per 


tutti gli acquisti di quel titolo. 

Quando tutto questo è stato com¬ 
pletato, Investor torna al menù princi¬ 
pale, dove si ha il CLEAR e il riDI- 
Mensionamento di tutte le variabili. 


L’aggiornamento 
dei dati di mercato 

Solitamente si tenderà ad aggiorna¬ 
re i prezzi di mercato del portafoglio 
su base settimanale. Con Investor ciò 
permetterà la visualizzazione di 52 in¬ 
tere settimane di dati mediante l’op¬ 
zione grafica. 

Quando si sceglie U)LTIMI PREZ¬ 
ZI DI MERCATO, Investor esegue la 
subroutine che comincia alla linea 
1090. Si introdurrà il nome dell’inve¬ 
stimento da aggiornare. 

Il file prezzo/NOME viene letto nel¬ 
le linee 450-530. Si noti che non occor¬ 
re leggere l’intero file, basta il primo 
record RO per determinare il numero 
di record che già esistono nel file. Im¬ 
postando il commutatore NI prima di 
leggere il file si può leggere il record 
RO e poi fare a meno dell’ulteriore 
lettura per tornare alla parte d’intro¬ 
duzione dati della subroutine. Il nu¬ 
mero dei record viene incrementato di 
1 e vengono introdotti i dati di mercato 
correnti (PREZZI MASSIMO- 
MINIMO-CHIUSURA, VOLUME e 
DATA). Quando ciò è stato introdot¬ 
to e accettato viene aggiunto al file 
prezzo/NOME e scritto sul dischetto, 
linee 540-560. Poi viene scritto nel re¬ 
cord RO del file il nuovo conto dei 
record. 

Quando ciò è stato compiuto Inve¬ 
stor torna al menù principale. 

Come funziona 
l’opzione di modifica 

Quando si decide di M)ODIFICA- 
RE UN INVESTIMENTO si ha la 
scelta fra lavorare con il file principale/ 
INVEST, il file prezzo/NOME e il file 
VENDITE. La subroutine di corre¬ 
zione comincia a linea 800. 

Se si sceglie il file principale/IN- 
VEST si avrà la richiesta di introdurre 
un identificatore di LOTTO (o preme¬ 
re RETURN per passare per difetto a 
LOTTO 1). Anche qui viene usata la 
subroutine di lettura del file comin¬ 
ciando alla linea 960. Si noti che se si 
imposta la variabile Ksu2 per leggere 
solo i primi due campi (NOME E 
LOTTO) di ciascun record. Queste in¬ 
formazioni saranno poi comparate con 
le introduzioni da tastiera appena fatte 
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per trovare il numero di record dell’in- 
vestimento voluto. Il numero di re¬ 
cord è determinato a linea 960. 

Quando è stato determinato il nu¬ 
mero di record Investor torna alla rou¬ 
tine di lettura del dischetto per leggere 
l’intero record. Questa volta di conse¬ 
guenza la variabile K è stata impostata 
su 14 per leggere tutti i 14 campi del 
titolo scelto. 

L’editing dei dati viene eseguito di 
fatto a cominciare dalle linee 990- 
1050. I nomi dei campi sono visualiz¬ 
zati con la variabile LL$(F). Vengono 
poi visualizzati i dati correnti e il cur¬ 
sore è posizionato sopra il primo carat¬ 
tere del primo campo. 

Si noti che ogni istruzione INPUT 
usa una variabile temporanea, F$, per 
racchiudere l’immissione. Se si preme 
RETURN (nessun cambiamento) il 
campo in questione rimane immutato. 
Se, e solo se, si introducono effettiva¬ 
mente nuovi dati (quando cioè si usa 
F$ <> “”), i nuovi dati sostituiranno i 
vecchi. 

Poi, ovviamente, i nuovi dati che 
sono stati inseriti vengono visualizzati 
al posto di quelli vecchi. 

Quando alla fine si accetta il nuovo 
record come da modifica, esso viene 
scritto nella sua giusta posizione nel 
file, usando la subroutine di scrittura 
sul dischetto che comincia a linea 1070 
e la subroutine a linea 570. 

Se si sceglie per modificare il file 
prezzo/NOME, Investor controllerà 
dapprima il file per determinare il nu¬ 
mero dei record attualmente esistenti 
nel file (cominciando a linea 900). Poi 
viene chiesto di scegliere un numero di 
record da modificare. Normalmente si 
tratterà dei dati di mercato più recenti 
(il numero più alto di record visualiz¬ 
zato). 

Le variabili di controllo della lettura 
dei record sono impostate sulla linea 
900. Il record viene letto usando la 
subroutine che ha inizio a partire dalla 
linea 450. 

Se si sceglie di modificare il file 
VENDITE, Investor leggerà il nume¬ 
ro di record, il nome e la data di vendi¬ 
ta per ogni record del file. Questi ven¬ 
gono listati e visualizzati dalla linea 
960 e viene chiesto di introdurre il nu¬ 
mero di record da correggere. Poi il 
record viene trovato e impostato per 
essere modificato. 

Le tecniche usate per l’editing vero 
e proprio sono identiche a quelle de¬ 
scritte sopra per il record principale. 
Quando i nuovi dati sono stati intro¬ 
dotti e accettati, il record revisionato 
viene riscritto sul dischetto e si ritorne¬ 
rà al menù principale. 


20 REH LOHEH:16385 PER METTERE 
30 REM IL PROeRAHHA SU PA6.1 
40 REH GRAFICA 

45 POKE 230,32; CALI 62450; POKE 230,64; CALI 62450 
50 H6R ; H6R2 ; SCALE^ 1; HCOLOR^^ 1 
60 PRINT CHRi (4);"BL0AD THE SHAPES' 

70 POKE 232,0; POKE 233,24; REH SHAPE TABLE POINTER $1800 
80 X = 73 

90 FOR Y = 86 TO 80 STEP - 1 
100 X = X + 1 

no H = 1; IF Y < = 80 THEN H = 3 

128 POKE 230,32 

138 CALI 62450: REH CRL SCRNl 

140 HC0L0R= H; DRAN 16 AT 80,Y; HC0L0R= 3: DRAM 17 AT 170,Y 

150 HC0L0R= H; DRAM 16 AT 80,X: HC0L0R= 3; DRAN 17 AT 170,X 

160 IF Y > 80 THEN 200 

170 Q = 21; FOR Z = 5 TO 75 STEP 15; DRAN 16 AT 0,2; NEXT 2; FOR 2 = 97 TO 
145 STEP 15; DRAN 16 AT 0,2; NEXT 2 

180 0 = 190; FOR 2 = 5 TO 75 STEP 15; DRAN 16 AT 0,2; NEXT 2; FOR 2 = 97 TO 
145 STEP 15; DRAN 16 AT 0,2; NEXT 2 
190 BOTO 240 

200 POKE - 16300,0; POKE - 16302,0; POKE 230,64; CALI 62450 

210 HC0L0R= H: DRAN 16 AT 80,Y - 1; HCOLOR» 3; DRAN 17 AT 170,Y - 1 

220 HC0L0R= H: DRAN 16 AT 80,X ^ 1: HC0L0R= 3; DRAN 17 AT 170,X ^ 1 

230 POKE - 16299,0 

240 NEXT Y 

250 POKE 230,32 

260 POKE - 16300,0 

270 POKE - 16301,0 

280 HOHE ; VTAB 22; PRINT 'COPYRIGHT 1983 - APPLICANDO V HICROSPARC 
285 VTAB 24; INPUT “BATTERE RETURN PER CARICARE INVESTOR ';XX$ 

298 POKE 16384,0 

300 POKE 103,01; POKE 104,64; REH 4001 HEX 
310 POKE 232,0; POKE 233,24; REH SHAPE TABLE PTRS 
320 PRINT CHR$ (4);'RUN INVESTOR' 


10 D$ * CHR$ (4); PRINT D$;'HAXFILES1'; ONERR GOTO 600 
30 PRINT D$;'VERIFY INVEST' 

40 ONERR GOTO 610 

50 PRINT D$;'VERIFY VENDITE'; BOTO 2810; REH SUBROUTINE VARIE 

51 FOR I = 1 TO 13; HPLOT 240,1 TO 279,1; NEXT I; HC0L0R= 0; DRAN 29 AT 250,3 

: DRAN 1 AT 260,3: DRAN 10 AT 264,3: HC0L0R= 3: GOTO 1620 

52 FOR I = 1 TO 13; HPLOT 240,1 TO 279,1; NEXT I; HC0L0R= 0; DRAN 29 AT 250,3 

: DRAN 1 AT 260.3: DRAN 10 AT 264.3: DRAN 10 AT 268.3: DRAN 10 AT 272.3: 
HCOLOR* 3; GOTO 1^20 

53 P * lOOi FOR I = 1 TO (F - 2); DWi < VAL ( LEFT$ (L0$,1))) AT 6,P;P = P - 

20: NEH I: RETURN 

55 LG » VAL ( NIDI (L0$,2,1));LG = LG - 1; RETURN 

56 P = 100; FOR I = 1 TO 6; DRAN 10 AT 14,P;P = P - 20; NEXT I; RETURN 

59 P = 100; FOR I = 1 TO 6; DRAN < VAL ( LEFT$ (L0$,1))) AT S,P;P = P - 20; NEXT 

I; RETURN 

60 X$ » LEFT$ (X$, LEN (X$) - 1) + '.' + RIGHT$ (X$,l); RETURN ; REH DECIM 

ALI NELLA STRINGA 

70 PRINT D$5'PRI1'; PRINT CHR$ (9);'135N'; PRINT CHR$ (27) + 'Q'; RETURN 
80 X$ * STR$ (2); RETURN 

90 2 = INT (2 I 100);2$ = STR$ (2);2Z$ = RIGHT$ (2$,2); IF ABS (2) > = 10 

0 THEN 29$ = LEFT$ (2$, LEN (2$) - 2):X$ = 29$ + + 22$; RETURN 

100 22$ = RI6HT$ (2$,2);29$ = "0':X$ » 29$ ♦ '.' + 22$; RETURN 
no CST = INT ( VAL (N$(I,3)) t VAL (N$(L4)));XC$ = STR$ (CST); IF SE = i THEN 
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300 MT di Esposizione 

SETTE VETRINE 
DI COMPUTERS 


lappkz computar 



INTERFACCE per: 

OLIVETTI ET 121/201/221/231 
225 

ADLER SE 1005/1010/1030 
ADLER G 8008 

BUFFER CENTRONICS 8K 
SDOPPIATORE CENTRONICS 
CONVERT. 

DA RS 232 A CENTR. 
CONVERT. 

DA lE 488 A CENTR. 


BIELLA 

P.ZZA S. PAOLO 1 
TEL 015/24.181-29.875 


120 VL = INI ( VAL (N$(I,3)) I VAL {CP$(I,3)));XV$ = STRI (VL): IF SE = 2 THEN 
RETURN 

130 6L = INT (VL - CST):XG$ = STR$ (6L): IF SE = 3 THEN RETURN 
140 PCT = INT ((VL / CST) t 100) - 100:XP$ = STRI (PCT): RETURN 
150 PRINT LEFTI (N$(I,1),5);: POKE 36,13: PRINT N$(I,2);: POKE 36,27 - LEN 
(N$(I,3)): PRINT N$(I,3);: RETURN : REM NOME-N.LOTTO-QUANTITA’ 

160 HTAB 10: FOR F = 10 TO 70: PRINT NEXT F: PRINT : RETURN 
170 FOR F = 1 TO 72: PRINT NEXT F: PRINT : RETURN 
180 FOR F = 1 TO 130: PRINT NEXT F: PRINT : RETURN 
190 PRINT LEFT$ (N$(I,1),6);: POKE 36,13: PRINT N$(I,2);: POKE 36,27 - LEN 
(N$(I,3)): PRINT N$(I,3);: POKE 36,38 - ( LEN (N$(I,5)) + LEN (N$(I,6)) + 
LEN (N$(I,7))) 

200 PRINT N$(I,5);-/';N$(I,6);V;NI(I,7);:CS = VAL (N$(I,3)) I VAL (N$(I,4 
)):Z = CS: GOSUB 80: POKE 36,54 - LEN (X$): PRINT X$;: RETURN 
210 MI = VAL (N$(I,5)):D1 = VAL (N$(I,6)):Y1 = VAL (N$(I,7)):M2 = VAL (CP$ 
(I,5)):D2= VAL (CP$(I,6)):Y2 = VAL (CP$(I,7)):M3 = VAL (N$(I,9)):D3 = 

VAL (N$(I,10)):Y3 = VAL (N$(I,11)) 

220 BD = INT (MI t 30) + DI ♦ INT ((Yl - (Y1 - D) t 365): REM CONTEGGIO DE 
L GIORNO PER DATA DI ACQUISTO 

230 CD = INT (N2 I 30) + D2 + INT ((Y2 - (Yl - D) I 365): REM CONTEGGIO DE 
L GIORNO PER DATA CORRENTE 

240 SD = INT (N3 I 30) + D3 + INT ((Y3 - (Yl - D) I 365): REM CONTEGGIO DE 
L GIORNO PER DATA DI VENDITA 
250 RETURN 

260 X$ = STRI (TG): POKE 36,63 - LEN (X$): PRINT X$;: RETURN 
270 POKE 36,72 - LEN (X$): PRINT X$: RETURN 

280 INVERSE : VTAB 24: INPUT ' BATTERE <RETURN> PER IL MENU ‘;XX$: NORMAL : 
HOME : TEXT : RETURN 

290 PRINT D$;'CATALOG-: INPUT "BATTERE RETURN PER CONTINUARE";XX$: RETURN 
300 PRINT "AZIONI";: POKE 36,10: PRINT "LOTTO N.";: POKE 36,23: PRINT "Q.TA’" 

;: RETURN 

310 POKE 36,32: PRINT "DATA AC9.";: POKE 36,49: PRINT "COSTO";: RETURN 
320 Z = GN: GOSUB 80: POKE 36,114 - LEN (X$): PRINT X$;:TG = TG + VAL (X$): IF 
SL$ = "B" THEN SH = SH + GN 
330 IF SL$ = "L" THEN LG = LG + GN 

340 POKE 36,119: PRINT SLÌ;:PC = (GN / CS) I 100:Z = PC: GOSUB 90: POKE 36,13 
0 - LEN (X$): PRINT X$: RETURN 

350 PRINT : PRINT "REGISTRA NUOVI DATI OPPURE BATTI": PRINT "RETURN PER ACCET 
TARE IL DATO GIÀ’": PRINT "INSERITO" 

360 PRINT "(GI0RN0=1-31 HESE=1-12)": RETURN 

370 PRINT :: PRINT "NOME INVEST..< OATALOGO ..(RTN) MENU >": RETURN : REM LE 
GGI IL FILE PRINCIPALE 

380 PRINT D$;"0PEN";FI$;",L150": IF SI$ = "1" THEN 410: REM LEGGI UN SINGOL 
0 RECORD 

390 PRINT D$;"READ";FI$;",RO": INPUT R: IF R = 0 OR SK$ = "1" THEN 440 
400 FOR I = J TO R 

410 PRINT D$;"READ";FI$;",R";I: FOR F « 1 TO K: INPUT N$(I,F): NEXT F: IF SS = 
"D" AND ((NA$ < > N$(I,I)) OR (NAI = N$(I,1) AND L0$ < > N$(I,2))) THEN 
GOSUB 620 

420 IF SU = "1" THEN 440 
430 NEXT I 

440 PRINT D$;"CLOSE";FU: RETURN : REM LEGGI IL FILE PREZZO 
450 PRINT D$;"VERIFY";NA$: PRINT D$;"OPEN ";NA$;•,L50“: IF SU = "1" THEN 490 
: REM SINGOLO RECORD 

460 PRINT D$;"READ ";NA$;",RO': INPUT R: IF R = 0 OR NI = 1 THEN 530 
470 IF QU = "1" THEN M = R: GOTO 490: REM LEGGI L’ULTIMO RECORD 

480 FOR N = J TO R: IF S$ = "G" THEN N = N + 1 

490 PRINT D$;"READ ";NA$;",R";N: FOR F = 1 TO K: INPUT U$(F): IF S$ = "G" THEN 
H$(N,F) = U$(F) 

500 IF S$ = "R" THEN CP$(I,F) = U$(F) 

510 NEXT F: IF SU = "1" OR QU = "1" THEN 530 

520 NEXT M 
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a Roma 
scegli applG 
nel computer shop 

tutto appkz 


/' 

/ 

bit computers 

Completa assistenza hardware e software, corsi e libri Apple 
Offerte promozionali, mercato deH’usato, credito personale, leasing 
In esclusiva perii Lazio i programmi di ingegneria della SlED(ing.Pica) 


^ ziZli£lQ 

Computer shop: Roma, via F. Satolli, 55/57/59 

(p.zza Pio XI ) - tei 06/6386096 - 6386146 

Sede centrale: Roma,v. Flavio Domiziano,10 

(EUR) -tei 06/5126700-5138023 


LATINA: corso dello Repubblica, 200 - telef. 0773/497301 
CISTERNA DI LATINA, via Aversa, 11 - telef. 06/9696973 
TARQUINIA: via S. Lucia Filippini, 17 - telef. 0766/856212 
VITERBO: via Giacomo Matteotti. 73 - telef. 0761/38669 
GAETA: lungomare Caboto.74- telef. 0771/470168 
NAPOLI: via Terraclna.354 - Parco Angela - telef 081/611817 




La visualizzazione 
del portafoglio 

Ci sono momenti nei quali è oppor¬ 
tuno avere un rapido quadro degli in¬ 
vestimenti che si hanno in portafoglio. 
Quando si fa la scelta P)ORTAFO- 
GLIO, viene eseguita la subroutine 
che comincia a linea 1190. Si potrà 
scegliere di vedere gli investimenti in 
portafoglio sullo schermo o sulla stam¬ 
pante. Qui si comincerà a notare che i 
comandi di stampa, visualizzazione e 
calcolo sono espressi nell’Investor co¬ 
me subroutine. Questa miscellanea di 
subroutine è contenuta nelle linee 60- 
340. Esse vengono impiegate per ri¬ 
sparmiare memoria evitando di ripete¬ 
re istruzioni comuni lungo tutto il pro¬ 
gramma. 

Le variabili di controllo dei record 
sono impostate a linea 1300 per la let¬ 
tura dei primi 7 campi di ciascun re¬ 
cord principale. Queste informazioni 
sono poi usate per stampare un som¬ 
mario del portafoglio cominciando a 
linea 1330. Quando ciò è stato comple¬ 
tato, la routine andrà a linea 280 (GO¬ 
TO 280) per una subroutine comune¬ 
mente usata: 

INVERSE: VTAB 24: INPUT ”BAT- 
TERE RETURN PER IL MENÙ”; 
XX$: NORMAL: HOME: TEXT: RE¬ 
TURN. 

Questo riporterà al menù princi¬ 
pale. 


Come si usa 
il file delle vendite 

La subroutine di vendita dei titoli 
utilizza la maggior parte delle routine 
usate dall’opzione MODIFICA e co¬ 
mincia anch’essa a linea 1.800. Se vie¬ 
ne venduto in tutto o in parte un inve¬ 
stimento il campo della «quantità ac¬ 
quistata» viene ridotto della quantità 
venduta. Poi la transazione di vendita 
viene aggiunta al file separato delle 
VENDITE. Sia il file INVEST sia il 
file VENDITE sono automaticamente 
aggiornati dopo una transazione di 
vendita. 

Si usano le routine di editing per 
scegliere il NOME e il LOTTO e per 
trovare e visualizzare il record. Quan¬ 
do giunge il momento della introdu¬ 
zione di dati, il cursore è posizionato 
direttamente sopra il PREZZO DI 
VENDITA (iniziando a linea 1010) 
per cominciare ad accettare le infor¬ 
mazioni sulle vendite. Quando le in¬ 
formazioni sulle vendite sono state 
completate viene data la scelta fra AC¬ 
CETTARE l’immissione o REIN- 
TRODURLA. 


530 PRINT DiCCLOSE ^NAS: RETURN 

540 PRINT D$;"0PEN ";NA$;",L50": PRINT Dij-NRITE •;NAÌ;%R";RE: POR F = l TO 
7: PRINT U$(F); NEXT F: IF SI$ = " THEN 560 
550 PRINT DI;"NRITE ■;NA$;",R0": PRINT RE 
560 PRINT D$;"CL0SE ^NAI; RETURN s REH SCRIVI IL FILE PRINCIPALE 
570 PRINT D$;‘0PEN";FI$;-,L150-: PRINT D$CWRITE';FI$;-,R-;R; FOR F = 1 TO 14 
: PRINT A$(F): NEXT F: IF SI = "H' OR S$ = "V“ THEN 590 
5B0 PRINT D$;'NRITE";FI$;",RO': PRINT R: IF S$ = "D" THEN RETURN 
590 PRINT D$;"CL0SE";FI$: RETURN 

600 POKE 216,0: PRINT Di;"OPEN INVEST,LISO": PRINT DÌ;“NRITE INVEST,RO": PRINT 
0: PRINT DÌ;"CL0SE INVEST": BOTO 40 

610 POKE 216,0: PRINT Di;"OPEN VENDITE,L150": PRINT Di;"«RITE VENDITE,RO": PRINT 
0: PRINT DÌ;"CL0SE VENDITE": GOTO 2810 

620 Q = Q ♦ 1: PRINT DÌ;"NRITE";FIÌ;",R";Q: FOR F » 1 TO 14: PRINT NÌ(I,F); NEXT 
F: PRINT DÌ;"HRITE";FIÌ;",R0": PRINT Q: RETURN 
630 REH NUOVO INVESTIHENTO 

640 J = 1:K = 2; 60SUB 380: FOR I = 1 TO R: FOR F = 1 TO 2:EÌ(I,F) = NÌ(I,F): NEXT 
F,I:K = 0 

650 IF R = 20 THEN HOHE : PRINT "HASSIHO 20 RECORD PER IL FILE MNVESTL": PRINT 
"^ESCFDAL PR06RAMHA E CAMBIA IL NOME ": PRINT "DELL'INVEST'.POTRAI COSI' 
INIZIALIZ2ARE": PRINT "UN NUOVO FILE 'INVEST'.": GOTO 280 
660 IF SN M THEN RETURN 
670 R = R + 1 

680 HOHE : VTAB 6: INVERSE : PRINT " SCRIVI IL RECORD DEL NUOVO TITOLO": NORHAL 
: PRINT ; PRINT "SCRIVI IL NONE DEL TITOLO.SE SONO": PRINT "STATI FATTI A 
LTRI ACQUISTI DEVI" 

690 PRINT "SCRIVERE LO STESSO NOME.": PRINT : GOSUB 370: INPUT "SCEGLI:";AÌ(1 
):AÌ(2) = "1": IF AiU) = "" THEN RETURN 
700 IF Aid) = "C" THEN GOSUB 290: BOTO 680 

710 FOR I = 1 TO R: IF Eid,l) = Aid) THEN PRINT "ACQ. PREC.:";EÌd,l);" -> 
";EÌd,2):HIT = 1;AÌ(2) = STRi ( VAL (Eid,2)) + 1) 

720 NEXT I: PRINT : PRINT "QUESTO ACQUISTO SARA':": PRINT Aid);" - >";AÌ(2): 

PRINT : INPUT "BATTERE RETURN PER CONTINUARE";XXÌ 
730 HOHE ; VTAB 6: INVERSE : PRINT "AGGIUNGI UN NUOVO INVEST": NORHAL : PRINT 
: GOSUB 360: IF HIT = 1 THEN HIT = 0: PRINT : PRINT "NUOVO ACQ.IL N.SUCC. 

E' L'ULTIMO + 1" 

740 VTAB 11: FOR F = 1 TO 7: PRINT LLÌ(F): NEXT F: FOR F = 13 TO 14: PRINT LL 
Ì(F): NEXT F: VTAB 11: HTAB 13: PRINT Aid): VTAB 12: HTAB 13: PRINT Ai(2 
) 

750 VTAB 13: FOR F = 3 TO 7: HTAB 13: INPUT "";AÌIf): NEXT : FOR F = 13 TO 14 

: HTAB 13: INPUT "";AÌ(F): NEXT F: VTAB 22: INPUT "RETURN=ACCETTARE ... ' 

R'= REINTRODURRE ";XXÌ: IF XXi < > "" THEN 750 

760 FOR F = 8 TO 11:AÌ(F) = "": NEXT F:FIÌ = "INVEST": GOSUB 570: IF VAL (Ai 

(2)) >1 THEN 790: REH NESSUNA INIZIALIZZAZIONE DEL FILE 'PREZZO' SE ESIS 
TE GIÀ' 

770 PRINT DÌ;"0PEN ";AÌd);",L50": PRINT DÌ;"NRITE ";AÌd);",R0-: PRINT 0: REM 
RECORD N. 

780 PRINT DÌ;"CL0SE ";AÌd) 

790 RETURN 

800 REH COMPILAZIONE DEI RECORD 

810 HOME : VTAB 6: INVERSE : IF Si = "H" THEN PRINT "MODIFICA DEI RECORD ": GOTO 
830 

820 IF Si = "V" THEN PRINT "VENDERE UN TITOLO." 

830 NORMAL : GOSUB 370: INPUT "SCEGLI:";NAÌ: IF NAi = "" THEN RETURN 
840 IF NAi = "C" THEN GOSUB 290: GOTO 810 
850 IF Si = "V" THEN EDi = "1": GOTO 880 

860 VTAB 12: PRINT : PRINT "SELEZ.IL FILE DA COMPILARE.:": PRINT ; PRINT "1)F 
ILE PRINCIPALE": PRINT "2)FILE PREZZO": PRINT "3)FILE VENDITE": PRINT : INPUT 
"SCEGLI:";EDÌ: IF EDi < > "3" AND EDi < > "1" AND EDi < > "2" THEN 860 
870 IF EDi = "2" THEN 900 

880 IF EDi = "1" THEN PRINT : PRINT "SCEGLI IL LOTTO.": INPUT "( RETURN = 1) 


□ 
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: 'jXHsPSI = XX$: IF XX$ = " THEN PS$ = "l" 

890 BOTO 950 

900 NI = 1: GOSUB 450:N1 = 0: HOME : PRINT "CI SONO "iR;" LOTTI NEL FILE PRINT 
: INPUT "SCEGLI IL LOTTO DA HODIFICARE:";RE:SI$ = •!";« = RE;K = 7: GOSUB 
450:SI$ = "" 

910 HOME : INVERSE : PRINT "MODIFICA IL LOTTO ";NA$;" N.";RE: NORMAL :• GOSUB 
350; VTAB 9: FOR F = 1 TO 7: PRINT LD$(F); NEXT F; VTAB 9: FOR F = I TO 7 
; HTAB 10: PRINT U${F): NEXT F 

920 VTAB 9: FOR F = 1 TO 7: HTAB 10: INPUT "";F$: IF F$ < > "" THEN U$(F) = 

F$ 

930 VTAB F + 8: HTAB 10: PRINT U$IF): HTAB 13: NEXT F: VTAB 23: HTAB 3: INPUT 
"RETURN=ACCETTARE ../R’=REINTRODURRE ";XXI: IF XX$ < > "" THEN 910 
940 RE = H: GOSUB 540: RETURN 

950 FI$ = "INVEST": IF EDI = "3" THEN FI$ = "VENDITE":J = 1:K = 14: GOSUB 3B0: 

HOME : PRINT "RECORD FILE DELLE VENDITE": FOR I = 1 TO R: PRINT I;")"; LEFTi 
(N$(I,1),6);: POKE 36,10: PRINT N$(I,9);"/";N$(1,10);"/";N$U,ll): NEXT I 
: GOTO 980 

960 J = 1:K = 2: GOSUB 380: FOR I = 1 TO R: IF N$(I,1} ^ NA$ AND N$(I,2) ^ PS$ 

THEN MR = I 
970 NEXT I: GOTO 990 

980 VTAB 22: INPUT "SCEGLI IL N.DEL RECORD DA MODIFICARE ";HR$:MR = VAL (MR$ 

): IF MR < 1 OR MR > R THEN 980 

990 SI$ = "1";I = MR:K = 14: GOSUB 380:SI$ = "": HOME : INVERSE : PRINT " MODI 
FICA/RECORD VENDITE ";N$(I,1);" N.";N$(I,2): NORMAL : GOSUB 350: VTAB 8: FOR 
F = 1 TO 14: PRINT LL$(F): NEXT F 

1000 VTAB 8: FOR F = 1 TO 14: HTAB 13: PRINT N$(I,F): NEXT F: IF SI = "H" THEN 
1030: REM MODIFICA 

1010 VTAB 15: FOR F = 8 TO 12: HTAB 13: INPUT "";F$: IF F$ < > "" THEN N$(I, 

F) = F$ 

1020 VTAB F + 7: HTAB 13: PRINT NÌ(I,F): HTAB 13: NEXT F: GOTO 1050 

1030 VTAB 8: FOR F = 1 TO 14: HTAB 13: INPUT "";F$: IF F$ < > "" THEN N$(I,F 

) = FI 

1040 VTAB F + 7: HTAB 13: PRINT N$(I,F): HTAB 13: NEXT F 

1050 VTAB 23: HTAB 3: INPUT "RETURN=ACCETTARE ../R»*REINTRODURRE "jXXI: IF X 

X$ < > "" THEN 990 

1060 IF SS = "V" THEN Sr= VAL (N$(I,3)):S2 = VAL (N$(I,12)):ST = INTiSl- 
S2):N$(I,3) = STRI (ST): REM DEPENNARE UNA VENDITA DAL PORTAFOGLIO 
1070 FOR F = 1 TO 14:A$(F) = N$(I,F): NEXT F:R = I: GOSUB 570: IF SS = "V" THEN 
SK$ = "1":FI$ = "VENDITE": GOSUB 380:SK$ = ••:S$ = ■■:R = R + 1: GOSUB 57 
0:S$ = "V": REM ULTIMI INVESTIMENTI k FILE VENDITE 
1080 RETURN 

1090 REM ULTIMI PREZZI DI MERCATO 

1100 HOME : VTAB 6: INVERSE : PRINT "BATTI IL PREZZO DI MERCATO CORRENTE": PRINT 
" MASSIMO/HINIMO/CHIUSURA ': NORMAL : GOSUB 370: INPUT "SCEGLI: 
";NA$: IF NA$ » THEN RETURN 
ino IF NA$ = "C" THEN GOSUB 290: GOTO 1100 
1120 NI ^ 1: GOSUB 450:N1 ^ 0 

1130 VTAB 12: PRINT "NOME :";NA$: PRINT "MASS. :": PRINT "MIN. 

:": PRINT "CHIUS. :": PRINT "VOLUME :": PRINT "Gl 11-31) :": PRINT 
"ME (1-12) :": PRINT "ANNO :" 

1140 VTAB 13: FOR F = 1 TO 7: HTAB 12: INPUT "■;U$(F): NEXT F: IF VAL (U$(5) 

) = 0 OR VAL (U$(5)) > 31 OR VAL (U4(6)) = 0 OR VAL (U$I6)) > 12 THEN 
VTAB 21: PRINT "DATO NON CORRETTO...REINTRODURRE I DATI":ER$ = "R" 

1150 VTAB 23: INPUT •RETURN=ACCETTARE...’R'=REINTRODURRE ";XX$: IF ERS < > " 

" THEN ER$ = "":XX$ = "R" 

1160 IF XX$ < > "" THEN VTAB 21: CALL - 868: BOTO 1130 
1180 RE = R + 1;SI$ = "1": GOSUB 540:SIÌ = "": RETURN 
1190 REM PORTAFOGLIO 

1200 HOME : VTAB 10: HTAB 8: INVERSE : PRINT "PORTAFOGLIO": NORMAL : IF AA$ = 

"S" THEN 1240 

1210 IF AA$ = "N" THEN VTAB 13: HTAB 8: PRINT "SOLO SU S)TAMPANTE": PRINT ; HTAB 



• RAM DISK 288K 

Scheda di memoria per simulazio¬ 
ne di due drive 5” - Massima ve¬ 
locizzazione dei programmi che uti- 
iizzano i dischi - Software per DOS 
3.3, Pascal 1.1 e CP/M - Occupa un 
solo slot, potete usarne fino a 2 in 
Pascal e CPM e fino a 6 in BASIC - 

L. 650.000 

• MUSIC SYSTEM 

Sintetizzatore digitale a 16 oscillato¬ 
ri con uscita stereofonica (scrivete 
la musica su pentagramma e create 
gli strumenti con timbrica a piace¬ 
re) - II Software comprende i dischi 
di sistema e musiche dimostrative - 
L. 500.000 +IVA 

• Scheda 80 colonne - Videx - Video- 
term compatibile 40/80 Softswitch - 

L. 365.000 

• ZOO scheda per CP/M L 180.000 

• UNITÀ DISCO 5” capacità 143 K 
meccanica slim line L. 579.000 

• DISK DRIVE CONTROLLER per una/ 

due unità L. 120.000 

• INTERFACCIA PARALLELA grafica 
per stampante Low Cost L. 125.000 

• Interfaccia stampante standard Cen¬ 
tronics per Epson con grafica 

L. 160.000 

• Interfaccia seriale RS-232-C bidire¬ 
zionale L. 180.000 

• Language card L. 120.000 

• NOVITÀ: REPLAY - permette di co¬ 
piare qualunque programma 

L. 240.000 

• PIASTRA CPU 48 K memoria RAM 

microprocessore 6502 L. 500.000 

• TASTIERA ALFANUMERICA con 

PAD numerico L. 190.000 

• TASTIERA ALFANUMERICA 

L. 155.000 

• CONTENITORE L. 135.000 

• ALIMENTATORE Switching 
+ 5/—5/+ 12/—12/—75 W 

Eleo System L. 190.000 

• PER APPLE II E 

Espansione di 64 K di memoria e 80 
colonne sul video L. 365.000 


• STAMPANTI AD IMPAHO 

SeiKosha 80 colonne 
Oki 80 colonne 
OKI 80 colonne 
Epson 80/132 colonne 
Star 

• MONITOR 

12 pollici, alta risoluzione, fosfori verdi 
12 pollici, alta risoluzione, fosfori gialli 
12 pollici, alta risoluzione, fosfori ambra 


Mod. 6P 100-A L. 530.000 

mod. n 80 L. 530.000 

mod. u 82 L. 790.000 

mod. M 80 L. 870.000 

mod. DPX 510 L. 890.000 

col M12V L. 230.000 

col MI 29 L. 240.000 

col M12A L 240.000 


• DISCHETTI FLESSIBILI MEMOREX 

5” e 8” - Confezione 10 SFDD 5" 

L. 49.000 

• SOFTWARE (richiedere catalogo) 


PREZZI SPECIALI PER NEGOZIANTI!!! 



PERSOnRL COnPUTER PRODUCTS 


Le richieste devono essere indirizzate a; SANDY - PIECI BREVETTI 
Via Monterosa, 22 - 20030 SENAGO (Mi) - Tel. 02-9989407 

Al prezzi sopraelenceti dovrà essere aggiunta l'aliquota IVA 18% -r costo spedizione. 

Per richieste con pagamento anticipalo la spedizione i gratuita. 
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8 : PRINT VRETURN) PER IL MENU"; PRINT : HTAB 8: PRINT ^S) PER CONTINUAR 
E': PRINT : HTAB 8: INPUT "SCEGLI -;X)($! IF XX$ = THEN RETURN 
1220 IF XX$ < > "S" THEN 1210 
1230 GOTO 1260 

1240 VTAB 13: HTAB 8; PRINT "SU;": PRINT ; HTAB 8: PRINT "V)IDE0": HTAB 8: PRINT 
•SITAMPANTE": PRINT ; HTAB 8: PRINT •<RETURN> PER IL MENU": PRINT ; HTAB 
8 : INPUT "SCEGLI "jXXi; IF XX$ = "" THEN RETURN 
1250 IF XX$ < > "S" AND XX$ < > "V" THEN 1240 
1260 IF XX$ = "S" THEN GOSUB 70 
1270 HOME : IF XX$ < > "S" THEN PRINT D$;"PR#3": PRINT 
1280 HOME : POKE 36,9; PRINT "PORTAFOGLIO"; POKE 36,9; PRINT "AZIONI";; POKE 
36,19; PRINT "A/V;; POKE 36,26; PRINT "LOTTO N.";; POKE 36,38; PRINT "Q. 
TA’";; POKE 36,50; PRINT "PREZZO";; POKE 36,61; PRINT "DATA ACQ."; GOSUB 
160 

1290 IF XX$ = “S" THEN PRINT D$;"PR#0" 

1300 J = 1;K = 8;FI$ = "INVEST"; GOSUB 380; REM LEGGI I RECORD 
1310 IF XX$ = "V" THEN 1330 
1320 PRINT D$;"PRI1" 

1330 FOR I = 1 TO R;BS$ = "A"; IF VAL (N$(I,8)) > 0 THEN BS$ = "V" 

1340 POKE 36,9: PRINT LEFT$ (N$(I,1),6);: POKE 36,20; PRINT BS$;: POKE 36,29 
; PRINT N$(I,2);; POKE 36,42 - LEN (N$(I,3)); PRINT N$(I,3);;Z = VAL (N 
$(I,4)); GOSUB 80; POKE 36,56 - LEN (X$); PRINT X$; 

1350 X$ = N$(I,5) + "/• + Nili,6) + "/" + N$(I,7); POKE 36,69 - LEN (X$); PRINT 
X$; NEXT I; IF XX$ < > "S" THEN 1370 
1360 PRINT D$;"PR#0"; GOTO 280 

1370 INVERSE ; HTAB 24; VTAB 24; INPUT " BATTERE <RETURN> PER IL MENU ";XX$ 

; NORMAL ; HOME ; TEXT ; PRINT CHR$ (12); CHR$ (21); RETURN 
1375 REM GRAFICI 

1380 HOME ; VTAB 4; INVERSE ; PRINT "GRAFICI APPLICANDO INVESTOR"; NORMAL 
1390 PRINT ; PRINT "QUESTA OPZIONE PRESENTA;"; VTAB 8; HTAB IO; PRINT "t PREZ 
ZO MASS/MIN/CHIUSURA"; HTAB 10; PRINT "I MEDIA MOBILE DEL PREZZO"; HTAB 1 
0; PRINT "t VOLUME VENDITE" 

1400 HTAB 10; PRINT "I MEDIA VOLUME VENDITE"; HTAB 10; PRINT "t PREZZO MASS.P 
ER IL PERIODO"; HTAB 10; PRINT "I PREZZO MIN. PER IL PERIODO"; HTAB 10; PRINT 
’l VOLUME MASS.PER IL PERIODO"; HTAB 10; PRINT "I VOLUME MIN. PER IL PERI 
ODO" 

1410 GOSUB 370; INPUT "SCEGLI;";NAI; IF NA$ = "" THEN RETURN 
1420 IF NA$ = "C" THEN GOSUB 290; GOTO 1380 

1430 HOME ; INVERSE ; PRINT "LEGGI IL FILE ";NA$; NORMAL ;N1 = 1; GOSUB 450:N 
1 = 0;J = 1; IF R > 51 THEN J = R - 51; REM 52 RECORD PIU^ RECENTI 
1440 N = 0;K = 7; GOSUB 450: REM LEGGI 

1450 HP = VAL (H$(1,1));LP = VAL (H$(1,2));HV = VAL (HÌ(1,4));LV = HVi REM 
INDIVIDUA IL PREZZO MASS/MIN.E IL VOLUME MASS. 

1460 FOR X = 1 TO N;HI = VAL (H$(X,1));HL = VAL (H$(X,2)):V0 = VAL (H$(X,4 
)): IF HI > HP THEN HP = HI; REM PREZZO MASSIMO 
1470 IF HL < LP THEN LP = HL; REM PREZZO MINIMO 

1480 IF VO < LV THEN LV = VO; REM VOL.MINIMO 

1490 IF VO > HV THEN HV = VO; REM VOL.MASSIMO 

1500 LO = INT (((LP / 10) - 1) I 10): IF LO < 1 THEN LO = 0: REM INDICE DI SC 
ALO MIN. ll->0 21->10 31->20 ETC. 

1510 LX = INT (LP);LO$ = STR$ (LX); IF LEN (LOS) = 1 THEN LI = 0;LG = 0 

1520 IF LEN (LOS) = 2 THEN LI = VAL ( LEFTS (L0S,1));LG = LI - 1;LI = (LI - 

1) I 10;S = 10:LMS = STRS (LX + 50); REM PREZZO MINIMO 10-99 

1530 IF LEN (LOS) = 3 THEN LI = VAL ( LEFTS (L0S,2)); GOSUB 55;LI = (LI - 1 

) I 10;S = 10;LM$ = STRS (LX ♦ 50); REM PREZZO 100-999 
1540 IF LEN (LOS) = 4 THEN LI = VAL ( LEFTS (L0S,2)); GOSUB 55;LI = (LI - 1 

) I 100:S = 10;LMS = STRS (LX + 500); REM PREZZO 1000-9999 

1550 IF LEN (LOS) = 5 THEN LI = VAL ( LEFTS (L0S,2)); GOSUB 55:LI = (LI - 1 

) I 1000;S = 14;LMS = STRS (LX + 5000): REM PREZZO 10000-99999 
1560 IF LEN (LOS) = 6 THEN LI = VAL ( LEFTS (LOS,2)): GOSUB 55;LI » (LI - 1 
) t 10000;S = 10;LMS = STRS (LX + 50000); REM PREZZO 100000-999999 
















































































































Quando Fimmissione è accettata il 
nuovo record principale/INVEST ag¬ 
giornato viene scritto sul dischetto, li¬ 
nea 1070. Poi il nome del file (FI$) è 
impostato su VENDITE e anche il file 
delle VENDITE viene aggiornato dal¬ 
la subroutine a linea 570. 


Per cancellare i record 

Per quanto si possa desiderare di 
tenere i record per un periodo indefi¬ 
nito (ai fini deir analisi personale) ver¬ 
rà un momento nel quale si vorrà sba¬ 
razzare il file principale/INVEST o il 
file VENDITE di specifici record prin¬ 
cipali. L’opzione D)EPENNARE 
esegue la subroutine che comincia a 
linea 3030. 

Si impiega ancora una volta la routi¬ 
ne di lettura del dischetto per svolgere 
il compito, a partire dalla linea 380. 
Qui questa routine trova un altro uso. 
Man mano che ciascun record princi¬ 
pale è letto in memoria viene compa¬ 
rato con il NOME e il LOTTO scelti 
per l’eliminazione (linea 410). Se il re¬ 
cord corrente che è stato letto non cor¬ 
risponde con quello scelto per la can¬ 
cellazione, viene eseguita la subrouti¬ 
ne di scrittura sul dischetto che comin¬ 
cia nella linea 640. Il contatore di scrit¬ 
tura dei record (Q nella linea 640) vie¬ 
ne incrementato e il record corrente 
viene riscritto sul dischetto. 

Quando si verifica una corrispon¬ 
denza fra il record corrente e quello 
cancellato, la subroutine di scrittura 
sul dischetto non viene eseguita e il 
contatore di scrittura dei record non 
viene incrementato. Il record da can¬ 
cellare è eliminato e il record successi¬ 
vo viene letto e riscritto nella posizio¬ 
ne precedentemente occupata dal re¬ 
cord cancellato. 

Se si stanno cancellando record dal 
file VENDITE tutti i record che con¬ 
tengono il NOME e il LOTTO specifi¬ 
cati saranno cancellati dal file. Quan¬ 
do la lettura e la scrittura sono state 
completate, il conto dei record Q ag¬ 
giornerà l’indice del conto dei record 
RO sul dischetto, e Investor tornerà al 
menù principale. 


Il tracciato dei grafici 

L’opzione G)RAFICI comincia a li¬ 
nea 1380 e visualizza un sommario del¬ 
le informazioni che la subroutine pre¬ 
senterà. Come per tutte le opzioni del 
menù si avrà modo di vedere il CATA¬ 
LOGO oppure di interrompere (tor¬ 
nando con RETURN al menù princi¬ 
pale) senza eseguire la routine. 


1570 NEH X;PV = 2: REH TRACCIATO DEL 6RAFIC0 

1580 POKE 230,32; CALI 62450; HGR ; HC0L0R= 3; R0T= 1; SCALE= 1; HPLOT 18,1 TO 

18,159;P = 0; POR F = 1 TO 120 STEP 20: HPLOT 19,F TO 20,F:NEXT F; FOR F 

* 1 TO 120 STEP 2; HPLOT 19,F; NEXT F: IF LG = - 1 THEN LG = 9 

1590 P = 100; FOR F = 1 TO 6:LG = LG + 1: IF LG = 11 THEN LG = 1; 60SUB 3180 

1600 DRAN LG AT S,P;P = P - 20; NEXT F; HPLOT 1,120 TO 279,120 

1605 IF LG = 10 AND LEN (L0$) = 5 THEN 4000 

1607 IF LG = 10 THEN GOSUB 56: GOTO 4000 

1608 IF LEN (L0$) = 2 THEN GOSUB 56: GOTO 1620 

1609 IF LEN IL0$) = 3 AND LEN (LHI) = 4 THEN GOSUB 56: GOTO 1620 

1610 IF LEN (L0$) = 3 AND VAL ( LEFT$ (LH$,1)) - VAL ( LEFTI (L0$,1)) = 1 THEN 

GOSUB 56: GOTO 1620 

1611 IF LEN (LOS) = 3 THEN S = 6: GOSUB 56: GOSUB 59: GOTO 1620 

1612 IF LEN (LOS) = 4 AND LEN (LHS) = 5 THEN GOSUB 56: GOTO 51 

1613 IF LEN (LOS) = 4 AND VAL ( LEFTS (LHS,1)) - VAL ( LEFTS (LOS.D) = 1 THEN 

GOSUB 56; GOTO 51 

1614 IF LEN (LOS) » 4 THEN GOSUB 56:S = 6: GOSUB 59: GOTO 51 

1615 IF LEN (LOS) = 5 AND LEN (LHS) = 6 GOTO 52 

1616 IF LEN (LOS) = 5 AND VAL ( LEFTS (LHS,1)) - VAL ( LEFTS (L0S,1)) = 1 GOTO 

52 

1617 IF LEN (LOS) = 5 THEN S = 10; GOSUB 59: GOTO 52 

1618 IF LEN (LOS) = 6 AND VAL ( LEFTS (LMS,1)) - VAL ( LEFTS (L0S,1)) = 1 THEN 

GOSUB 56: GOTO 52 

1619 IF LEN (LOS) = 6 THEN S = 6: GOSUB 56: GOSUB 59; GOTO 52 

1620 DRAN 28 AT 217,100: DRAN 17 AT 239,106 

1650 FOR F = 19 TO 172 STEP 15; HPLOT F,119; NEXT F: DRAN 11 AT 49,113: DRAN 
12 AT 79,113: DRAN 13 AT 109,113: DRAN 14 AT 139,113: DRAN 15 AT 169,113: 

REH 10-50 

1660 HT = 0: HPLOT 40,125 TO 279,125: DRAN 22 AT 22,122: DRAN 27 AT 32,122; REH 
PR F 

1670 FOR F = 120 TO 150 STEP 10: HPLOT 19,F: NEXT F: HPLOT 1,159 TO 275,159; DRAN 
18 AT 5,125: DRAN 19 AT 7,137: DRAN 20 AT 5,145: DRAN 21 AT 5,154: REH 
V E N D 

1680 Q = 22:VI = INT (HV / 30):D = 1: IF LEN (LOS) = 4 THEN D = 10 
1690 IF LEN (LOS) = 5 THEN D = 100 

1700 IF LEN (LOS) = 6 THEN D = 1000 

1710 FOR X = 1 TO N:0A = NA:HT = HT + VAL (HS(X,3)) / D:NA = INT (HT / X):A 
P = (HT / X) I D:AP = INT (AP I 100 + .05) / 100: REH HEDIA HOBILE VECCH 
lA/NUOVA 

1720 VA = VA ♦ VAL (HS(X,4)): REH ACCUHULO DEL VOLUHE 
1730 IF X < 13 THEN 1750: REH CALCOLO HEDIA HOBILE DELLE 13 SETTIHANE PIU’ RE 
CENTI 

1740 OB = NB:NB = 0:HU = 0;AQ = 0; FOR H = X - 12 TO X:HU = HU + VAL (HS(H,3) 

) / D: NEXT H:NB = INT (HU / 13):AQ = HU / 13:AQ = INT (A9 % 100 + .05) 

/ 100 

1750 A = INT (121 - (2 I (( VAL (HS(X,1)) - LI) / D))): REH HASSIHO 

1760 B = INT (121 - (2 t (( VAL (HS(X,2)) - LI) / D))): REH HINIHO 

1770 C = INT (121 - (2 t (( VAL (HS(X,3)) - LI) / D))): REH CHIUSURA 

1780 V = INT (159 - ( VAL (HS(X,4)) / VI)): REH VOLUHE 

1790 NA = INT (121 - (21 (NA - (LI / D)))): REH HEDIA HOBILE 

1800 NB = INT (121 - (2 t (NB - (LI / D)))): REH HEDIA HOBILE 13 SETTIHANE 

1810 IF X > 2 AND NA > 2 THEN HPLOT Q - 3,0A TO 8,NA 

1820 HC0L0R= 1: IF X < =13 THEN 1860 

1830 IF NB > 5 THEN HPLOT 8 - 3,0B TO Q,NB 

1840 HC0L0R= 3:PS = INT ((NB / NA) I 100): IF PS > 100 THEN PS = INT ((PS - 
100) / 10) + 1: HPLOT Q,125 TO Q,125 + PS: GOTO 1860: REH IHPULSO NEGATIV 
0 DEL PREZZO 

1850 IF PS < = 100 THEN PS = INT ((100 - PS) / 10) + 1: HPLOT 9,125 TO 9,12 
5 - PS: REH IHPULSO POSITIVO DEL PREZZO 
1860 HC0L0R= 3: IF A < 0 OR B < 0 THEN 1880 
1870 HPLOT 9,A TO 0,B: HPLOT 9 + 1,C 
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Quando si sceglie il NOME di un 
titolo da visualizzare viene letto il file 
prezzo/NOME per determinare quan¬ 
te immissioni esistono attualmente nel 
file. A linea 1430, se ci sono più di 57 
immissioni, saranno lette in memoria 
solo le 52 più recenti. 

Quando la matrice H$(I,F) è stata 
letta in memoria, viene esplorata per 
rindividuazione dei prezzi e dei volu¬ 
mi massimo/minimo. Poi i prezzi ven¬ 
gono scalati nelle linee 1460-1570 per 
determinare la forbice (estensione 60 
punti). Successivamente vengono 
tracciate le altre figure e scale (fig. 15). 
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Con inizio alla linea 1710 vengono 
calcolate per il plottaggio la vecchia e 
la nuova Media mobile, viene accumu¬ 
lato il volume, e se il numero dei perio¬ 
di supera 13 settimane vengono usate 
le 13 settimane più recenti per calcola¬ 
re la media mobile di 13 settimane. 
Vengono calcolati e scalati sul grafico, 
cominciando sulla linea 1750, i prezzi 
massimo/minimo/chiusura settimana¬ 
li. Se un prezzo esce da una fascia di 60 
punti da minimo a massimo il suo trac¬ 
ciato viene omesso, per evitare di far 
fermare il programma. Per operare 
rinvestor deve essere in grado di rac¬ 
chiudere tutti i movimenti di prezzo 
entro un’estensione di 60 punti. 

La variabile Q viene usata per espri¬ 
mere il periodo di plottaggio corrente 
per ogni settimana, e Q è incrementa¬ 
to di tre punti grafici con ogni plot. 


1880 HPLOT Q,V TO Q,159:Q = Q + 3: NEH XsD = 0;VA = INI (VA / N):V = INI ( 

159 - (VA / VI)): HPLOT 22,V TO Q - 3,V: DRAM 26 AT Q + 5,V: REH VOL.M 
EDIO 

1890 IF NA > 3 THEN DRAH 24 AT Q i 5,NA - 3: DRAH 23 AT Q + 13,NA - 3: REH 
HEDIA HOBILE 

1900 X = NB - NA; IF X > - 5 AND X < =0 THEN NB = NB - 6 

1910 IF X > 0 AND X < 5 THEN NB = NB + 6 

1920 IF NB > 3 AND N > 13 THEN DRAN 25 AT Q + 5,NB - 3; DRAN 23 AT Q + 13,NB 

- 3 

1930 HP$ = STR$ (HP); VTAB 21; PRINT “NONE; LEFT$ (NA$,10);; POKE 36,18; IF 
LEN (HP$) > 4 THEN PRINT "PR-MASS/HIN;INT (HP / 1000)INT (LP / 
1000);"K-; BOTO 1950 

1940 VTAB 21; PRINT "NONE; LEFT$ (NA$,10);: POKE 36,18; PRINT "PR-HASS/HIN 
;';HPjV";LP 

1950 VTAB 22; PRINT H$(1,5);'/";H$(1,6);-/";H$(1,7);"-";H$(N,5);'/";H$(N,6);" 
/";H$(N,7);; POKE 36,18: IF HV > 9999 THEN PRINT "VOL-HASS/HIN;"; INT (H 
V / 1000);“K/"} INT (LV / 1000);-K" 

1955 IF HV < = 9999 THEN PRINT "VOL-HASS/HIN;■;HV;"/";LV 

1960 VTAB 23; PRINT "PR-HEDIO;"; INT (AP);; POKE 36,18; IF VA > 9999 THEN PRINT 

"VOL-HEDIO;"; INT (VA / 1000) ;"K"; BOTO 280 
1963 PRINT "VOL-HEDIO;";VA; BOTO 280 
1965 REH RESOCONTI VARI 

1970 HOHE ; INVERSE ; PRINT "RESOCONTI VARI INVESTOR"; NORHAL 
1980 PRINT ; PRINT "1=ANALISI DEL HERCATO"; PRINT ; PRINT •2=ANALISI DEL REND 
IHENTO"; PRINT ; PRINT "3=ANALISI DELLE VENDITE"; PRINT ; PRINT •4=ANALIS 
I HERCATO BREVE/LUN60 TERHINE"; PRINT ; PRINT "SCANALISI VENDITE BREVE/LU 
NBO TERHINE" 

1990 IF AA$ = "N" THEN VTAB 15; INVERSE ; PRINT "TUTTE LE OPZIONI SOLO SU ST 
AHPANTE"; NORHAL ; BOTO 2010 

2000 PRINT ; PRINT ; PRINT "OPZIONE 1-3 SU VIDEO 0 STAHPANTE."; PRINT "OPZION 
E 4-5 SOLO SU STAHPANTE." 

2010 VTAB 17; PRINT ‘RESOCONTI VARI (1-5)"; INPUT "0 <RETURN> PER IL HENU; "; 

RP$;RP = VAL (RP$); IF RP = 0 THEN RETURN 
2020 IF AA$ = "N" BOTO 2060 
2030 IF RP < 1 OR RP > 5 THEN 2010 
2040 IF RP = 4 OR RP = 5 OR RP < 4 AND AAS = "N" THEN 2060 
2050 VTAB 20; INPUT "V)IDE0 0 S)TAHPANTE ; ";SP$; IF SP$ < > "V" AND SPI < > 
"S" THEN 2050 

2060 VTAB 22; PRINT ‘SCEBLI IL NONE DEL TITOLO."; INPUT ‘<RETURN> PER TUTTI : 

";NI$;FI$ = ‘INVEST"; IF RP = 3 OR RP = 5 THEN FI$ = "VENDITE" 

2070 IF NI$ = "‘ THEN 2120; REH SALTA LA SCELTA DEI NOHI 
2080 SH 60SUB 630: SN = 0: REH CERCA I NOHI 

2090 A = 0;K = 14; FOR I = 1 TO R: IF NII = E$(I,1) THEN A = A + 1;SI$ = ‘1";F 

1$ = "INVEST"; BOSUB 3B0;SI$ = “; FOR F = 1 TO 14;N$(A,F) = N$(I,F); NEXT 
F: REH LEBBI I RECORD 

2100 NEXT I; IF A = 0 THEN PRINT ; PRINT NI$;" NON E' NEL FILE"; BOTO 280 
2110 BOTO 2150 

2120 REH LEBBI TUTTI I RECORD 

2130 J = 1;K = 14;FU = "INVEST"; IF RP = 3 OR RP = 5 THEN FI$ = "VENDITE" 

2140 BOSUB 380;A = R; FOR I = 1 TO R; FOR F = 1 TO 2;E$(I,F) = N$(I,F): NEXT 
F,I 

2150 REH < LEBBI I PREZZI CORRENTI > 

2160 FOR I = 1 TO A; IF RP = 3 OR RP = 5 THEN N$(I,3) = N$(I,12); REH Q.TA’ V 

ENDUTA PER IL RESOCONTO 

2170 NA$ = N$(I,1);K = 7;QI$ = "1"; BOSUB 450;QI$ = ""; NEXT I; IF RP < 4 AND 
AA$ < > "N" THEN 2200 
2180 BOSUB 70; IF RP = 4 THEN 2600 
2190 IF RP = 5 THEN 2680 

2200 HOHE ; IF SPI = "V" THEN PRINT D$;‘PR#3‘; BOTO 2220; REH RESOCONTI SU 
VIDEO 

2210 BOSUB 70 
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VIndicatore Predella forza del prezzo 
è calcolato a linea 1840. Esso rappre¬ 
senta una differenza percentuale (con 
approssimazione del 10%) fra le me¬ 
die mobili delle 13 e delle 52 settima¬ 
ne, e indica l’impulso positivo o nega¬ 
tivo del prezzo. 

Il volume e i prezzi sono tracciati 
nelle linee 1870-1880. 

Infine il volume medio è tracciato 
nella linea 1880. 

I valori numerici per volumi e prezzi 
massimo/minimo/medio sono poi vi¬ 
sualizzati in forma di testo alla base 
dello schermo. Quando lo schermo è 
stato completato viene data l’opzione 
di tornare al menù principale. 


Come sì ottengono 
i resoconti 

Investor offre, come si è visto, cin¬ 
que diversi resoconti. La subroutine 
comincia a linea 1970 e ne presenta le 
opzioni. Se vengono scelti i resoconti 
1-3 si ha l’ulteriore possibilità di sce¬ 
gliere il D)ISPLAY sullo schermo op¬ 
pure la S)TAMPANTE (i resoconti 4 
e 5 omettono questa opzione dato che 
per essi è indispensabile la stam¬ 
pante). 

Il numero di slot per la stampante è 
fissato a 1 nelle linee 1260,1320,2180, 
2210, che rimandono alla subroutine 
della linea 70, nella quale si definisce 
anche il carattere con l’espressione: 
PRINT CHR$ (27) + “Q”. 

Se si preme RETURN quando vie¬ 
ne chiesto di introdurre il NOME di un 
titolo sarà letto e usato per il resoconto 
scelto l’intero portafoglio. 

Se si introduce un NOME specifico 
da usare per il resoconto Investor tro¬ 
verà i NOMI per il portafoglio. Poi 
leggerà il record completo per ogni 
corrispondenza con il NOME sulla li¬ 
nea 2090, e costruirà una matrice per il 
resoconto. Si noti che questa opzione 
ignora il LOTTO e legge e riferisce in 
merito a tutti i pacchetti di azioni per 
l’investimento che è stato scelto. 

Quando sono stati trovati nel file 
principale/INVEST i dati appropriati, 
viene usato poi il NOME per trovare 
nel file prezzo/NOME i dati di prezzo/ 
volume più recenti (con il numero più 
alto). Ciò viene ottenuto come ulterio¬ 
re variante della routine di lettura del 
dischetto che comincia a linea 2170. 
Essa legge il conto dei record sul re¬ 
cord RO del file. Poi trova il record R 
per usarne i dati di prezzo e volume. 

Ma attenzione: poiché Investor fa 
affidamento sui dati di prezzo più re¬ 
centi per i resoconti e per l’analisi, è 


2220 HOflE : PRINT RH$(RP): 60SUB 300; ON RP 60T0 2225,2310,2450 
2225 REM ANALISI MERCATO 

2230 POKE 36,36: PRINT "COSTO";; POKE 36,49; PRINT "VMC";; POKE 36,58; PRINT 
"6N/PE";; POKE 36,68; PRINT "X6/P"; 60SUB 170: POR I = 1 TO A; IP VAL (N 
$11,3)) = 0 THEN 2280 

2240 GOSOB 150; 60SUB 110;X$ = K%i POKE 36,41 - LEN (X$); PRINT X$;;TC = TC 
+ CST; REM COSTO 

2250 X$ = XV$; POKE 36,52 - LEN (X$); PRINT X$;:TV = TV + VL; REM VALORE DI M 
ERCATO 

2260 X$ = X6$; POKE 36,63 - LEN (X$); PRINT X$;;TB = TB + BL; REM BUADABNO/PE 
RDITA 

2270 X$ = XP$; BOSUB 270; IP I = 20 AND SP$ < > "S" THEN INPUT "PREMERE RETO 
RN PER CONTINUARE";XX$ 

2280 NEXT I; BOSUB 170;X$ = STR$ (TC); POKE 36,41 - LEN (X$); PRINT X$;;X$ = 
STR$ (TV): POKE 36,52 - LEN (X$); PRINT X$;: BOSUB 260;X$ = STRI ( INT 
((TB / TC) t 100)); BOSUB 270; IP SP$ = "S" THEN PRINT D$;"PRI0"; BOTO 2 
80 

2290 IP RP < 4 AND AA$ = "N" THEN 2800 

2300 BOTO 1370 

2310 REM ANALISI RENDIMENTO 

2320 POKE 36,36; PRINT "COSTO";; POKE 36,47; PRINT "DV/AZ";; POKE 36,59; PRINT 
"DIV";; POKE 36,67: PRINT "XREND"; BOSUB 170; POR I = 1 TO A; IP VAL (N$ 
(1,3)) =0 THEN 2400 

2330 BOSUB 150; REM STAMPA INPORMAZIONI COMUNI 

2340 BOSUB 110;X$ = XC$; POKE 36,41 - LEN (X$); PRINT X$;;TC = TC + CST; REM 
COSTO 

2350 X$ = N$(I,14); POKE 36,52 - LEN (X$): PRINT X$;; REM DIV. 

2360 DV = INT ( VAL (X$) t VAL (N$(I,3)));X$ = STRI (DV); POKE 36,62 - LEN 
(X$); PRINT X$;;TD = TD + DV? REM AMMONTARE DIV. 

2370 YL = INT (((DV / CST) + .0005) t 1000);X$ = STR$ (YL): IP LEN (X$) = 1 
THEN X$ = "." + X$; BOTO 2390 
2380 BOSUB 60 
2390 BOSUB 270 

2400 NEXT I; BOSUB 170;X$ = STR$ (TC); POKE 36,41 - LEN (X$); PRINT XI;;X$ = 
STR$ (TD); POKE 36,62 - LEN (X$); PRINT X$;:X = INT (((TD / TC) + .000 
5) t 1000);X$ = STR$ (X); IP LEN (X$) = 1 THEN X$ = "." + X$; BOTO 2420 
2410 BOSUB 60 

2420 BOSUB 270; IP SP$ = "S" THEN PRINT D$;"PRi0"; BOTO 280 

2430 IP RP < 4 AND AA$ = "N" THEN 2800 

2440 GOTO 1370 

2450 REM ANALISI VENDITE 

2460 POKE 36,34: PRINT "COSTO";; POKE 36,44; PRINT "VENDITE";; POKE 36,58; PRINT 
"6N/PE";: POKE 36,68; PRINT "ZB/P"; BOSUB 170; POR I = 1 TO A; IP VAL (N 
$(I,12)) = 0 THEN 2540 

2470 BOSUB 150; REM STAMPA INPORMAZIONI COMUNI 

2480 BOSUB 110;X$ = XC$; POKE 36,39 - LEN (X$); PRINT X$;;TC = TC + CST; REM 
COSTO 

2490 X$ = N$(I,8);SA = INT ( VAL (X$) t VAL (N$(I,3)));X$ = STR$ (SA); POKE 

36,51 - LEN (X$); PRINT X$;;TV = TV ♦ SA; REM AMMONTARE VENDITE 

2500 BN = INT (SA - CST);X$ = STRI (BN); POKE 36,63 - LEN (X$); PRINT X$;;T 
B = TB + BN; REM STAMPA BUADABNO VENDITE 
2510 BP = INT (((BN / CST) + .0005) t 1000);X$ = STR$ (BP); IP LEN (X$) = 1 
THEN X$ = "." + X$; BOTO 2530 
2520 BOSUB 60 
2530 BOSUB 270 

2540 NEXT I; BOSUB 170;X$ = STR$ (TC); POKE 36,39 - LEN (X$); PRINT X$;;X$ = 
STR$ (TV); POKE 36,51 - LEN (X$); PRINT X$;; BOSUB 260;BP = INT (((TB / 
tC) + .0005) t 1000):X$ = STRI (BP) 

2550 IP LEN (X$) = 1 THEN X$ = "." + X$; BOTO 2570 
2560 BOSUB 60 

2570 BOSUB 270; IP SP$ = "S" THEN PRINT D$;"PR#0"; BOTO 280 
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Progettata espressamente per Apple ][+ e Ile Spectagram consente 
di selezionare qualsiasi combinazione di 16 colori in GR o 6 colori 

in HGR da una gamma di 

256 COIOBI 





CS 2234 (22") 


La scheda viene fornita 

completa di cavo per 

il collegamento a monitor 

e di software che consente 

sia di dimostrare il funzionamento della 

Spectragram che di creare un programma 

in BASIC contenente i colori selezionati. 
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decisamente importante tenere ag¬ 
giornato il file prezzo/NOME utiliz¬ 
zando l’opzione U)LTIMI PREZZI 
DA INSERIRE. 

Le opzioni dei resoconti fanno un 
forte uso delle subroutine nelle linee 
60-340. Tutti i prospetti seguono un 
analogo formato. 

1) Vengono stampate le informazioni 
di testata comuni. 

2) Vengono aggiunte le informazioni 
di testata esclusive. 

3) Sono utilizzate le subroutine miscel¬ 
lanee per stampare i trattini di format¬ 
tazione. 

4) Vengono stampate nella subroutine 
a linea 140 le informazioni di dettaglio/ 
elemento comuni. 

5) Vengono aggiunte al prospetto le 
informazioni di dettaglio esclusive. 

I calcoli usati non sono molto com¬ 
plicati e possono essere descritti così: 

$COST = NUMERO AZIONI X 
PREZZO D’ACQUISTO 
$MKT - NUMERO AZIONI X 
PREZZO DI MERCATO COR¬ 
RENTE 

$DIV = NUMERO AZIONI X DIVI¬ 
DENDO PER AZIONE 
%YIELD = LIRE DIVIDENDO/LI- 
RE COSTO 

$SALE = NUMERO AZIONI X 
PREZZO DI VENDITA 
GAIN/LOSS = $MKT (Guadagno/ 
Perdita) ($SALE) - $COST 
%G/L = GAIN(LOSS)/$COST 

Utilizzati per preparare i dati per i 
prospetti, sono scritti come subroutine 
miscellanee nelle linee 60-340. 


Altre subroutine 
importanti 

Il posizionamento effettivo dell’am- 
montare da stampare viene ottenuto 
calcolando la lunghezza della stringa 
da stampare (LEN). La lunghezza vie¬ 
ne sottratta dalla posizione più a de¬ 
stra di stampa della stringa e POKE 
36, POSITION dà avvio alla stampa 
del valore. Per esempio se si vuole 
stampare il valore 10.000 allineato a 
destra alla colonna 25 il comando che 
segue svolgerà il compito (con X$ qua¬ 
le stringa finale da stampare): 

POKE 36,25-LEN(X$):PRINT X$. 

La stringa sarà stampata con il giu¬ 
sto allineamento. Il calcolo della situa¬ 
zione del plusvalore di capitale a bre¬ 
ve/lungo termine è eseguito nella su¬ 
broutine che comincia con la linea 210. 
Questo calcolo utilizza la data d’acqui¬ 
sto e la data di mercato più recente del 
file prezzo/NOME. Ogni data è poi 


2580 IF RP < 4 AND AA$ = "N" THEN 2800 
2590 GOTO 1370 

2600 REH ANALISI HERCATO B/L TERMINE 

2610 PRINT RHÌ(l);- A BREVE/LUNGO TERHINE*: 60SUB 300: GOSUB 310: POKE 36,58: 
PRINT "PR.CORR.";: POKE 36,70; PRINT "VALORE CORR.";: POKE 36,85: PRINT 
•GLT";; POKE 36,91; PRINT "A/V"; 

2620 POKE 36,98: PRINT "GUADAGNO/PERDITA";: POKE 36,118: PRINT "B/L";: POKE 3 
6,125: PRINT "X G/P": GOSUB 180; FOR I = 1 TO A: IF VAL (N$(I,3)) = 0 THEN 
2670 

2630 GOSUB 190:TC = TC ♦ CS: REH STAHPA DATI COMUNI 
2640 Z = VAL (NS(I,4)): GOSUB 80: POKE 36,65 * LEN (Xi): PRINT X$;:Z = VAL 
{CP$(I,3)) t VAL {NI(I,3)):CV = Z: GOSUB 80: POKE 36,81 - LEN (X$): PRINT 
X$;:TV = TV ♦ VAL (X$) 

2650 GOSUB 210;SL$ = "L":DL = INT (365 - (CD - BD)): IF DL > 0 THEN X$ = STRI 
(DL): POKE 36,88 - LEN (X$): PRINT X$;:SLI = "B" 

2660 BS$ = "A": IF VAL (N$(I,B)) >0 THEN BSI = "V" 

2670 POKE 36,92; PRINT BS$;:6N = CV - CS: GOSUB 320; NEXT I: GOTO 2760 

2680 REH ANALISI VENDITE B/L TERMINE 

2690 PRINT RH$(3);" A BREVE/LUNGO TERMINE": GOSUB 300: GOSUB 310: POKE 36,61: 
PRINT "PR.VEND.";: POKE 36,71: PRINT "VALORE VEND.";: POKE 36,85: PRINT 
" DATA VEND."; 

2700 POKE 36,98: PRINT "GUADASNO/fERDITA";; POKE 36,118: PRINT "B/L";: POKE 3 
6,125: PRINT "X G/P": GOSUB 180: FOR I = 1 TO A: IF VAL (N$(I,12)) = 0 THEN 
2750 

2710 IF VAL (N$(I,12)) = 0 THEN 2750 

2720 GOSUB 190:TC TC ^ CS:2 = VAL (N$(I,8)): GOSUB 80: POKE 36,68 > LEN ( 

X$): PRINT XI;:Z » VAL (N$(I,3)) t VAL (N$(I,8)):SV = Z: GOSUB 80: POKE 

36,82 - LEN (X$): PRINT X$;;TV = TV ♦ SV 
2730 GOSUB 210;SL$ = "L":DL = INT (365 - (SD - BD)): IF DL > 0 THEN SL$ = "B 

2740 POKE 36,92 - ( LEN (N$(I,9)) + LEN (Ni(l,10)) ♦ LEN (N$(I,11))): PRINT 
N$(I,9);"/";N$(I,10);"/";N$(I,11);:GN = SV - CS: GOSUB 320 
2750 NEXT I 
2760 REH TOTALI 

2770 GOSUB 180:Z » TC: GOSUB 80: POKE 36,54 - LEN (X$): PRINT X$;:Z = TV: GOSUB 
80: POKE 36,81 - LEN (X$): PRINT X$;:Z = TG: GOSUB 80: POKE 36,114 - LEN 
(X$): PRINT XI; 

2780 PC = (TG / TC) I 100:Z = PC: GOSUB 90: POKE 36,130 - LEN (Xl): PRINT XI: 
PRINT : PRINT "GUADAGNO/PERDITA A BREVE TERMINE: ";:Z = SH: GOSUB 80: POKE 
36,33 - LEN (XI): PRINT XI 

2790 PRINT "GUADAGNO/PERDITA A LUNGO TERMINE: "^lZ ^ LG: GOSUB 80: POKE 36,33 
- LEN (XI): PRINT XI 
2800 PRINT DI;"PRi0": BOTO 280 
2810 REM « MENU PRINCIPALE » 

2820 CLEAR : TEXT :DI = CHRI (4): PRINT DI;"N0MONI,0,C": DIM AI(14),LLI(14): 

DIM RHI(4): FOR F = 1 TO 14; READ LLKF): NEXT F: FOR F = 1 TO 7: READ L 

DKF): NEXT F: FOR F = 1 TO 3; READ RHKF): NEXT : ONERR GOTO 2980 

2830 HOME : VTAB 4: HTAB 10: INVERSE : PRINT " APPLICANDO INVESTOR ": NORMAL 
: PRINT : HTAB 14: PRINT "BY ALEX LAIRD": VTAB 21: HTAB 11; PRINT "COPYRI 
6HT 1983": HTAB 11: PRINT "APPLICANDO 6 MICROSPARC": PRINT 
2840 VTAB 9: HTAB 9; PRINT "A)GGIUNBERE UN INVESTIMENTO": HTAB 9; PRINT "U)LT 
IMI PREZZI DI HERCATO": HTAB 9; PRINT "M)0DIFICARE UN TITOLO": HTAB 9; PRINT 
"P)0RTAF0GLI0" 

,2850 HTAB 9: PRINT "V)ENDERE UN TITOLO": HTAB 9; PRINT "D)EPENNARE UN TITOLO" 

: HTAB 9: PRINT "G)RAFICI": HTAB 9: PRINT "R)ES0C0NTI VARI": HTAB 9; PRINT 
"F)INIRE": PRINT : HTAB 16: INVERSE ; INPUT " SCEGLI ";SI: NORMAL 
2860 IF SI < > "D" AND SI < > "A" AND SI < > "V" AND SI < > "M" AND SI < 

> "U" AND SI < > "P" AND SI < > "B" AND SI < > "R" AND SI < > "F" THEN 

2830 

2870 IF SI = "6" THEN DIM HI(53,7) 

2880 IF SI < > "B" THEN DIM NI(20,14),CPI(20,7),EI(20,2) 
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convertita in un CONTO DEI GIOR¬ 
NI con la formula: 

DC = INT(MO*30)+DAY-MNT(YC- 
YB-1)*365. 

In questa formula il valore YC è 
l’anno di mercato corrente!vendita. Il 
valore YB è l’anno d'acquisto. La for¬ 
mula normalizza all’anno in cui l’ac¬ 
quisto è stato fatto e deriva un conto 
attuale del numero dei giorni trascorsi 
dall’epoca dell’acquisto. Nel prospet¬ 
to principale guadagno/perdita merca¬ 
to corrente se l’investimento è ancora 
a breve termine viene calcolato e 
stampato nel prospetto il numero dei 
giorni che mancano perché sia rag¬ 
giunto lo stato di lungo termine. Il 
compendio del plusvalore a breve/lun¬ 
go termine è accumulato nella subrou¬ 
tine che comincia a linea 320. Il guada¬ 
gno/perdita percentuale è calcolato e 
stampato nella subroutine a linea 340. 
Investor usa una serie di REM per 
identificare le singole routine di reso¬ 
conto: si dovrebbe essere in grado di 
individuarle senza complicazioni. 

Per uscire dal programma 

Quando si sceglie l’opzione F)INI- 
RE rinvestor finisce. Tutti i puntatori 
attivati dal carica Investor restano in¬ 
tatti di modo che si può far girare di 
nuovo il programma senza dover ese¬ 
guire il caricamento. Si tenga presente 
che se si esce da Investor e si scorda di 
digitare FP prima di caricare un altro 
programma, il secondo programma 
sarà caricato ed eseguito al disopra 
della pagina 2 della grafica ad alta riso¬ 
luzione. Se si preferisce che i puntatori 
siano ripristinati automaticamente al¬ 
l’operazione normale basta inserire 
un’istruzione, PRINT D$;“FP”, alla 
fine della linea 2950. 

Cosa fare per ampliare 

L’intero campo delle finanze e degli 
investimenti personali è ricco di po¬ 
tenziale per un’espansione. Si tenga 
presente che per ridurre le richieste 
alla memoria si sono fatti nell’Investor 
considerevoli giri. Una volta che ci si è 
familiarizzati con il programma si pos¬ 
sono togliere i REM per aggiungere 
altra memoria utilizzabile. In alterna¬ 
tiva si possono scrivere programmi se¬ 
parati che facciano un uso analitico 
delle informazioni d’archivio già rac¬ 
chiuse nei file di Investor. 

Ecco qualche idea: 

• Usare il campo APERTO nel re¬ 
cord principale in modo che contenga 
dati storici addizionali, come i vari in¬ 
dici Mediobanca, Comit, Sole 24 ore. 


2890 IF Si = -A" THEN Fli = MNVEST": GOSUB 630: GOTO 2820 

2900 IF Si = "V OR Si = “H" THEN GOSUB 800: GOTO 2820 

2910 IF Si = "U" THEN GOSUB 1090: GOTO 2820 

2920 IF Si = "P- OR Si = "R“ THEN GOSUB 3120: GOTO 2820 

2930 IF Si = -G- THEN GOSUB 1380: GOTO 2820 

2940 IF Si = "D" THEN GOSUB 3030: GOTO 2820 

2950 IF Si = "F- THEN HOME : VTAB 10: HTAB 10: PRINT " FINE": END 

2960 DATA "NONE "."SEB.ACQ.'/N. AZIONI","PREZZO ACQ.“,"GIORNO ACB.","NES 
E ACB.","ANN0 ACB.","PREZZO VEND.","GIORNO VEND.","NESE VEND.","ANN0 VEND 
."QTA’VEND.","CARPO N.1","DIVIDENDO" 

2970 DATA "NASSIR0","NININ0“,"CHIUSURA","VOLUNE","GIORNO","RESE","ANNO" : DATA 
"ANALISI DEL RERCATO","ANALISI DEL RENDIRENTO","ANALISI DELLE VENDITE 

■ 

2980 POKE 216,0: PRINT DÌ;"CL0SE": IF PEEK (222) = 5 THEN VTAB 21: PRINT "N 
ESSUN DATO IN QUESTO FILE": GOTO 3020 

2990 IF PEEK (222) « 6 THEN VTAB 21: PRINT "NESSUN FILE CON QUESTO NONE.": GOTO 
3020 

3000 IF PEEK (222) = 9 THEN VTAB 21: PRINT "DISCO PIENO.. RETTI UN NUOVO DI 
SCO": GOTO 3020 

3010 VTAB 21: PRINT "ERRORE N."; PEEK (222)}"ALLA LINEA"; PEEK (218) + PEEK 
(219) t 256;".": PRINT "CONTROLLA A PAG 136 DEL TUO RANUALE": PRINT "APPL 
ESOFT ALLA V0CE<C0DICE ERRORI)" 

3020 VTAB 23: CALL - 868: INPUT "BATTI <RETURN> PER IL NENU";ni: GOTO 2820 
3030 RER DEPENNARE UN RECORD 

3040 B ^ 0: HORE : INVERSE : PRINT "CANCELLAZIONE RECORD": NORRAL : VTAB 6: PRINT 
"CANCELLANDO UN RECORD ESSO VIENE RIROSSO": VTAB 7: PRINT "DAL FILE E I R 

IRANE(TI VENGONO SPOSTATI": VTAB 8: PRINT "IN AVANTI PER COLRARE IL BUCO. 

■ 

3050 PRINT : PRINT "E» NECESSARIO USARE LO STESSO NONE CHE": PRINT "AVETE USA 
TO PER IL’TITOLO’ALLMNIZIO DEL PROGRARRA" 

3060 PRINT : PRINT "CANCELLARE DAL:": PRINT : PRINT "1= FILE PRINCIPALE": PRINT 
"2= FILE VENDITE": INPUT "SCEGLI: •;DLÌ: IF DLi < > "1" AND DLi < > "2" 

THEN 3040 

3070 PRINT : PRINT "SCEGLI IL NONE 0 < RETURN > PER IL RENU": INPUT "N0RE:";H 
Ai: IF NAi = ■" THEN RETURN 

3080 PRINT : PRINT "SCEGLI IL N. DEL LOTTO.<RETURN> PER IL"; PRINT "LOTTO N.l 
.": HTAB 18: INPUT "LOTTO N.:";X1(Ì:L0Ì = XXi: IF XXi = "" THEN LOi = "1" 

3090 HORE : VTAB Ì0: INVERSE : PRINT "ELABORAZIONE": NORRAL :FIÌ = "INVEST": IF 
DLi = "2" THEN Fli = "VENDITE" 

3100 J M:K = 14: GOSUB 380: RER FILE LETTURA/SCRITTURA 
3110 PRINT : PRINT "IL RECORD ";NAÌ;" LOTTO N.";L0Ì;" E’CANCELLATO ": GOTO 28 
0 

3120 HORE VTAB 11; INPUT "HAI LA SCHEDA <80 COLONNE) ?(S/N) ";AAÌ: IF AAi < 

) "S" AND AAi < ) "N" THEN 3120 

3130 IF AAi = "S" AND Si = "P" OR AAi » "N" AND Si = "P" THEN 1190 

3140 IF AAi = "S" AND Si = "R" OR AAi * "N" AND Si = "R" THEN 1970 

3150 IF LG = 6 OR LG = 7 OR LG = 8 OR LG » 9 THEN P * 100: FOR 1 » 1 TO 6: GRAN 

( VAL ( LEFTi (L0i,l)) + 10) AT 2,P:P = P - 20: NEXT I: RER POSIZIONA PRI 
RA CIFRA 

3180 PK = P + 20: IF LEN (LOi) = 2 AND LEN (LRi) = 3 THEN T = 6: BOTO 3225 

3182 IF LEN (LOi) = 3 AND LEN (LRi) == 4 THEN T 6: GOTO 3220 

3185 IF LEN (LOi) = 3 THEN T = 6: GOTO 3210 

3187 IF LEN (LOi) = 4 AND LEN (LRi) = 5 THEN T = 6: GOTO 3220 

3190 IF LEN (LOi) = 4 THEN T = 6 

3195 IF LEN (LOi) = 5 AND LEN (LRi) = 6 THEN T = 10: FOR I = F TO 7: DRAN 1 
0 AT T,PK: DRAM 1 AT 6,PK:PK = PK - 20: NEXT I:PK = 100; FOR I = 1 TO (F - 
2); DRAN ( VAL ( LEFTi (L0i,l))) AT T,PK:PK = PK - 20: NEXT I: RETURN 
3200 IF LEN (LOi) = 5 THEN T = 10: GOTO 3210 

3203 IF LEN (LOi) = 6 THEN T = 6 

3210 FOR I = F TO 7: DRAN ( VAL ( LEFTi (LRÌ,1))) AT T,PK:PK = PK - 20; NEXT 

I:PK = 100: FOR I = 1 TO (F - 2): DRAN ( VAL ( LEFTi (L0i,l))) AT T,PK:PK 
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m 



Sasib, presi dai giornali. 

• Incorporare qualcuno dei rapporti 
analitici per aggiungere al proprio por¬ 
tafoglio segni di riferimento compara¬ 
tivi. Eccone alcuni tra i più diffusi: 
RAPPORTO RIALZO/RIBASSO 
RAPPORTO MASSIMO/MINIMO 
STATISTICA ODD LOT 
STATISTICA SUPERCOM- 
PRATO/SUPERVENDUTO. 

• Analizzare i VERTICI e le BASI di 
ciascun movimento ciclico dei prezzi 
per TRACCIARE le principali aree di 
SOSTEGNO e RESISTENZA. Que¬ 
ste linee di tendenza possono poi esse¬ 
re sovrapposte al grafico del nostro 
investimento per avere una indicazio¬ 
ne delle grandi «evasioni» dalle ten¬ 
denze storiche. 

• Se si vuole sbarazzare periodica¬ 
mente il file prezzo/NOME dei suoi 
record inutilizzati (vecchi) si può scri¬ 
vere un programmino che legga il file, 
determini quanti record ci siano e poi 
scriva/crei un nuovo file contenente 
solo i 52 record più recenti (con i nu¬ 
meri più alti). 


" = PK - 20: NEH I: RETURN 

3220 POR I = F TO 7: DRAN ( VAL ( LEFTI AT l,PK: DRAM 10 AT 6,PK:PK 

= PK - 20: NEXT I:PK = 100: FOR I = 1 TO (F - 2): DRAN ( VAL ( LEFT$ (LO 
$,1B) AT 6,PK:PK = PK - 20: NEXT I: RETURN 

3225 FOR I = F TO 7: DRAN ( VAL ( LEFTI (LNS,!))) AT T,PK:PK = PK - 20: NEXT 
I: RETURN 

4000 IF LEN (L0$) » 2 THEN DRAN 1 AT 6,0: GOTO 1620 

4010 IF LEN (L0$) = 3 AND LEN (LNI) = 4 THEN 60SUB 53: DRAN 10 AT 6,0: DRAN 
( VAL { LEFT$ (LR$,1))) AT 1,0: GOTO 1620 

4020 IF LEN (L0$) = 3 THEN GOSUB 53: DRAN ( VAL ( LEFT$ (LN$,1))) AT 6,0: GOTO 
1620 

4030 IF LEN (L0$) = 4 AND LEN (LH$) = 5 THEN GOSUB 53: DRAN 10 AT 6,0: DRAN 
( VAL ( LEFT$ (LH$,1))) AT 1,0: GOTO 51 

4040 IF LEN (L0$) = 4 THEN GOSUB 53: DRAN ( VAL ( LEFT$ (LH$,1))) AT 6,0: GOTO 
51 

4050 IF LEN (L0$) = 5 AND LEN (LH$) = 6 THEN P = 100: FOR I = 1 TO (F - 2): 
DRAN ( VAL ( LEFTI (L0$,1))) AT 10,P:P = P - 20: NEXT I: DRAN 10 AT 10,0 
: DRAN 1 AT 6,0: GOTO 52 

4060 IF LEN (LOS) = 5 THEN P = 100: FOR I = 1 TO (F - 2): DRAN ( VAL ( LEFTS 
(L0S,1))) AT 10,P:P = P - 20: NEXT I; DRAN ( VAL ( LEFTS (LHS,1))) AT 10, 

0: GOTO 52 

4070 IF LEN (LOS) = 6 THEN P = 100; FOR I = 1 TO (F - 2): DRAN ( VAL ( LEFTS 
(L0S,1))) AT 6,P:P = P - 20:.NEXT I: DRAN ( VAL ( LEFTS (LHS,1))) AT 6,0: 
GOTO 52 
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N el precedente articolo di questa 
serie didattica sull’uso del Basic 
era descritta la principale struttura ci¬ 
clica fornita dal Basic, il loop Por/ 
Next. Veniva presentata anche l’im- 
missione di dati fatta mediante il co¬ 
mando Read in combinazione con 
istruzioni Data, e così pure i comandi 
Peek/Poke e come questi due comandi 
possano essere usati in modo che ac¬ 
cordino al programmatore la flessibili¬ 
tà che gli permetterà di ripristinare 
(restore) il puntatore dei dati a qual¬ 
siasi posizione voluta della lista dei da¬ 
ti senza dover fare sempre il ripristino 
airinizio della lista. 

In questo articolo si parlerà di state¬ 
ment If/Then e di uso delle subrouti¬ 
ne. Un argomento utile anche per chi 
ha già esperienza di programmazione 
in Basic, perché è possibile che alcuni 
dei concetti presentati non siano am¬ 
piamente conosciuti o usati. Si tratta 
del concetto di programmazione strut¬ 
turata e di come le strutture If/Then/ 
Else, While/Do, Repeat/Until e Case/ 
Of, che si trovano in linguaggi come il 
Pascal, possano essere riprodotte nel- 
l’Applesoft Basic. 

Il conditional branching 
nel Basic. If/Then 

Senza la capacità di prendere deci¬ 
sioni basate sulle relazioni elementari 
e sulla logica il computer sarebbe uno 
strumento molto inefficiente. Così co- 
m’è congegnato il computer può fare 
semplici confronti e usare il loro risul¬ 


tato per saltare a vari complessi di 
istruzioni. Per quanto il risultato di 
qualsiasi confronto debba essere o ve¬ 
ro o falso in senso strettamente logico, 
la flessibilità che questo conferisce al 
computer è formidabile. 

Si possono confrontare numeri o 
espressioni matematiche per vedere se 
siano uguali, e il risultato sarà o vero, a 
significare “sì, questi due numeri (va¬ 
riabili, espressioni) sono uguali”, o 
falso, a significare “no, i due numeri 
non sono uguali”. In questi confronti 
si fa più comunemente uso di variabili, 
e sono i valori che queste variabili rap¬ 
presentano a essere impiegati dal com¬ 
puter per la comparazione. 

La principale istruzione del Basic 
che ordina al computer di fare un tale 
confronto è lo statement If/Then. Il 
formato generale di questa istruzione 
impiega una delle configurazioni che 
seguono e che sono illustrate nella 


Tabella 1 . Forme di If/Then. 

IF espressione 1 = espressione 2 
THEN... 

IF espressione 1 <> espressione 2 
THEN... 

IF espressione 1 < espressione 2 
THEN... 

IF espressione 1 <= espressione 2 
THEN... 

IF espressione 1 > espressione 2 
THEN... 

IF espressione 1 >= espressione 2 
THEN... 


Negli statement riportati dalla ta¬ 
bella i simboli che separano le due 
espressioni sono chiamati operatori 
relazionali. Nell’ordine mostrato essi 
vengono letti come segue: uguale, non 
uguale, minore, minore o uguale, 
maggiore e maggiore o uguale. L’e¬ 
spressione 1 e l’espressione 2 possono 
essere semplici variabili o costanti, co¬ 
me nei seguenti esempi; 


IF A = 45 THEN... 

IF XY > A3 THEN... 


I puntini che seguono la parola 
THEN rappresentano qualsiasi valido 
comando del Basic, o combinazione di 
comandi separati da segni di due pun¬ 
ti. Essi rappresentano lo specifico 
complesso di istruzioni che il compu¬ 
ter dovrà seguire qualora la relazione 
fra le due espressioni risulti vera. Se la 
relazione non è vera il computer igno¬ 
rerà completamente tutti i comandi 
contenuti in quella linea del program¬ 
ma e continuerà con la linea successi¬ 
va. Per esempio: 

60 IF A = 45 THEN PRINT “A È 
UGUALE A 45.”; GOTO 80 
70 PRINT “A NON È UGUALE A 45” 
80 il programma continua da qui. 

Si noti che nella linea 60 sono com¬ 
presi due comandi dopo THEN. Que¬ 
sti comandi vengono eseguiti solo se 
l’espressione 1, il valore associato alla 
variabile A, è uguale alla espressione 
2, la costante 45. Se A non è uguale a 
45 il computer ignorerà semplicemen- 
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te questi due comandi e andrà avanti 
alla linea 70. Il comando Goto nella 
linea 60 è molto importante. Senza di 
esso, per il caso che A sia uguale a 45, 
apparirebbe sullo schermo quanto 
segue: 

A È UGUALE A 45. 

A NON È UGUALE A 45. 
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re di essa. I seguenti confronti avreb¬ 
bero “vero” come risultato: 


Il comando GOTO forza un salto 
oltre il blocco di istruzioni che tratta 
specificamente la situazione che si ve¬ 
rifica quando si constata che la relazio¬ 
ne è falsa. 

Questo tipo di approccio comincia 
ad assumere una configurazione a salti 
successivi quando i complessi di istru¬ 
zioni per le situazioni di vero e falso 
diventano più complicati. Per esem¬ 
pio, la situazione riportata nel listato 
esemplificativo 1 adopera le linee da 
130 a 210 per gestire il complesso di 
istruzioni da eseguire se la relazione 
fra le due espressioni è falsa, e le linee 
da 220 a 460 se la relazione è vera. 

Listato esemplificativo 1 . 

120 IF AR >= BC THEN GO¬ 
TO 220 

130 inizio del blocco d'istruzioni 
per “falso" 

200 fine del blocco d'istruzioni 
per “falso" 

210 GOTO 470 

220 inizio del blocco d istruzioni 
per “vero " 

460 fine del blocco d'istruzioni 
per “vero" 

470 il programma continua da 
qui 

Questi salti a catena, per quanto sia¬ 
no incoraggiati nel Basic, fanno venire 
crisi nervose ai programmatori che 
aderiscono rigidamente ai concetti di 
programmazione strutturata (si vedrà 
in seguito come evitare questo proble¬ 
ma). Ma prima è necessario conclude¬ 
re l’esame dell’istruzione If/Then co¬ 
me è interpretata dall’Applesoft 
Basic. 

È possibile comparare espressioni 
stringa, ma occorre ricordare che le 
stringhe vengono confrontate letteral¬ 
mente, carattere per carattere, in tutta 
la loro lunghezza. Il confronto è basa¬ 
to sul codice ASCII per ogni carattere 
che viene comparato, e una stringa più 
corta identica alla prima parte di una 
stringa più lunga è considerata antece¬ 
dente la stringa più lunga, ossia mino- 


IF “MELA” < “PESCA” THEN... 

IF “MELA” > “MELA” THEN... 

IF “ROSA” < “ROSASPINA” 
THEN... 

Nel secondo esempio l’espressione 
2 ha inizio con lo spazio (codice ASCII 
32) mentre l’espressione 1 comincia 
con A (codice ASCII 65). Questi 
esempi usano costanti stringa, ma nei 
confronti si potrebbero usare anche 
variabili stringa. 

La valutazione letterale della rela¬ 
zione fra le due espressioni può causa¬ 
re problemi se le espressioni rappre¬ 
sentano numeri reali risultanti da cal¬ 
coli. Se le due espressioni equivalgono 
a due numeri reali che sono identici 
con l’eccezione dell’ultima cifra deci¬ 
male tenuta in conto dal computer sa¬ 
ranno considerate disuguali. Solita¬ 
mente non è questo che il programma¬ 
tore desidera. In tali casi la miglior 
cosa è valutare le espressioni come nu¬ 
meri interi contenenti il numero volu¬ 
to di posizioni decimali. Per esempio, 
si supponga che AB debba essere con¬ 
frontato con AM, entrambi numeri 
reali determinati in precedenza nel 
programma. Perché la comparazione 
sia condotta fino alla terza posizione 
decimale si potrebbe usare la seguente 
espressione: 

IF (INT(AB ★ 1000 + .5)) = (INT(AM 
★ 1000 + .5)) THEN... 

In questo caso i due numeri reali 
vengono moltiplicati per 1000 al fine di 
allogare la terza posizione decimale. 
A ciascuno si aggiunge 0.5, il che arro¬ 
tonda il numero basato sulla quarta 
posizione decimale, e i numeri risul¬ 
tanti sono quindi convertiti in numeri 
interi prima della comparazione. Na¬ 
turalmente questo metodo funzionerà 
solo quando i numeri interi risultanti 
siano minori di 32767, il valore massi¬ 
mo ammesso per i numeri interi. 

Infine altre due forme dello state¬ 
ment If/Then sono ugualmente valide 
nell’Applesoft Basic. Quando la sola 
istruzione che segue la parola THEN è 
un comando Goto si può omettere la 
parola THEN, oppure si può omettere 
il Goto. Le tre istruzioni qui sotto sono 


56 





























































ugualmente valide e svolgono la stessa 
funzione: 


IF RF > TD THEN GOTO 120 
IF RF > TD GOTO 120 
IF RF > TD THEN 120 


Operatori logici 

Gli operatori presentati nella prece¬ 
dente sezione sono chiamati operatori 
relazionali perché le comparazioni che 
li utilizzano sono basate sul modo in 
cui le due espressioni sono in relazione 
runa con l’altra. L’Applesoft dà spa¬ 
zio anche all’uso di tre operatori logi¬ 
ci, AND, OR e NOT. Più comune¬ 
mente questi operatori sono usati per 
confrontare i risultati di due o più 
espressioni relazionali. Come usata 
qui un’espressione relazionale è sem¬ 
plicemente la comparazione relazio¬ 
nale di due espressioni aritmetiche o 
stringa esattamente come gli esempi 
presentati sopra. 

Ma quando il computer deve esegui¬ 
re certe istruzioni soltanto se due 
espressioni relazionali del genere sono 
valutate vere il programma può essere 
semplificato usando l’operatore logico 
AND. Qui sotto sono illustrate varie 
relazioni logiche: 


IF(A=B) AND (A>D) THEN... 

IF (M$=“CITTÀ”) OR 

(S$=“PROVINCIA”) THEN... 
IF (G%=4) NOT (F%=7) THEN... 


Nel primo di questi esempi le istru¬ 
zioni che seguono il THEN (rappre¬ 
sentate dalle ellissi) saranno eseguite 
solo se entrambe le espressioni rela¬ 
zionali (A=B e A maggiore di D) sono 
vere. Nel secondo esempio il comples¬ 
so di istruzioni rappresentato dalle el¬ 
lissi sarà attuato se una o entrambe le 
espressioni relazionali sono vere; nel 
terzo esempio quelle istruzioni saran¬ 
no seguite se G% è uguale a 4 e F% 
non è uguale a 7. 

Naturalmente si potrebbero ottene¬ 
re gli stessi risultati usando due o più 
statement IF impieganti solo espres¬ 
sioni relazionali. Tuttavia con il pro¬ 
gressivo complicarsi di simili relazioni 
un appropriato ricorso agli operatori 
logici contribuirà a tenere il'program- 
ma più comprensibile e di più facile 
impiego. Non c’è neppure limite prati¬ 


co al grado di complessità di queste 
relazioni logiche, ed esse possono es¬ 
sere nidificate con l’uso di parentesi. 
Per esempio: 


IF (A=5 AND B=7) OR (A=6 AND 
B = 5 NOT (D = 3 OR D = 4)) 
THEN... 


In questo caso le istruzioni che se¬ 
guono THEN verranno eseguite o 
quando A e B sono rispettivamente 5 e 
7, o quando A e B sono rispettivamen¬ 
te 6 e 5, a condizione che D non sia 
uguale a 3 o a 4. 

Subroutine 

Una subroutine è un complesso, o 
blocco, di istruzioni del Basic cui si 
può pensare quale miniprogramma 
che è separato dal programma princi¬ 
pale ma viene da questo impiegato 
ogni volta che il suo blocco di istruzio¬ 
ni è necessario. L’aspetto della sùb- 
routine non è diverso da quello del 
programma principale. Ogni linea di 
istruzioni ha il suo numero di linea, 
proprio come avviene nel programma 
principale. La sola caratteristica diver¬ 
sa della subroutine è che l’ultimo co¬ 
mando di ogni subroutine deve essere 
la singola parola RETURN. 

Le subroutine possono apparire in 
qualsiasi punto all’interno di un pro¬ 
gramma. Tuttavia se sono situate in¬ 
ternamente al corpo del programma 
principale, e non sono utilizzate anche 
come parte del programma principale, 
si deve mettere un GOTO ##### 
immediatamente prima della prima li¬ 
nea della subroutine. Ciò fa sì che il 
programma principale salti al di là del¬ 
la subroutine. Il numero di linea usato 
nel comando Goto corrisponde alla li¬ 
nea che segue il comando Return della 
subroutine. 

La subroutine vera e propria è ri¬ 
chiamata dal programma principale 
ogni volta che occorre il blocco di 
istruzioni che essa contiene. Non ap¬ 
pena il computer incontra GOSUB 
##### arresta l’esecuzione sequen¬ 
ziale linea per linea delle istruzioni del 
programma, imposta un puntatore sul 
comando che segue immediatamente 
l’istruzione Gosub e va al numero di 
linea specificato dal comando Gosub. 
Questo numero di linea è, natural¬ 
mente, quello della prima linea della 
subroutine desiderata. 

Viene poi attuata l’esecuzione se¬ 
quenziale linea per linea del comples¬ 
so di istruzioni della subroutine fino a 
quando il computer incontra il coman¬ 
do Return. A questo punto il compu- 



DISK-SUBSYSTEMS 


Finalmente a disposizione 
due sottosistemi a dischi 
floppy ad alta capacità con 
dimensioni atte a realizzare 
applicazioni professionali 
per aziende di medie 
dimensioni. 


a 10 :10 Mb, 8” 
interfaccia SASI 
P 5 : 5 Mb, 5”y4 
interfaccia ST 506 

espandibili fino a 4 unità. 
Dischi estraibili. 

Dotati di opzione t 

multipleport che ^ 

permette di collegare 4 5 

personal alla stessa banca- o 
dati e di realizzare un < 

sistema “multiutente". < 

Nessuna conversione di 
Software se lavorate in 
Apple DOS, Megados 0 
CPM. 


Attach sviluppati anche per IBM PC, SIRIUS 
e altre case. 

Consegne per contanti pronte da 
magazzino. 

Chiedere informazioni: 


Sig. 


Ditta, 


Via 


CAP_Città_Tel.. 

CP usato__ 


EENERHL nUTnMHTiniM 

20129 Milano - Via Gaspare Gozzi 1/A 
Tel. (02)718531 6 linee - Telex 311353 


57 








































AMORE E ASSISTENZA PER LISA 
IL VOSTRO COMPUTER 
PIÙ PERSONALE 



Una relazione così importante richiede davvero 
un’ASSlS LENZA TECNICA di riguardo 


ENroDEX 


EN( ODI 
ENCOi'JlX 


ENCODEX 


ENCODEX 

ENCODEX 


è ASSISTENZA TECNICA per il Vostro 
Personal Computer APPLE 

è la prima società indipendente di 
ASSISTENZA TECNICA in Italia 

è l’unica organizzazione autorizzata 
da APPLE per l’ASSISTENZA TECNICA 
IN LOCO su tutto il territorio nazionale 

Vi propone il servizio IN LOCO 
su tutto il territorio nazionale 
con tempestività d’intervento 
ovunque esso venga richiesto 

è ASSISTENZA TELEFONICA; 
il servizio permette di risolvere le Vostre 
difficoltà tecniche anche al telefono 

è ASSISTENZA TECNICA 24 ORE; 
la nostra segreteria telefonica è operativa 
per 24 ore sette giorni su sette. 



E.H.S. 


encodex hardware Service s.r.l. 


sede: milano, via padova, n. 38 

tei, 28.43.864 - 28.95.762 - 28.96.758 

telex: encsat - I 322268 


||cippla 

assistenza autorizzata 
in loco 










































ter salta indietro al programma princi¬ 
pale, al punto sul quale era stato impo¬ 
stato il puntatore, e comincia a esegui¬ 
re nuovamente le linee del programma 
principale. 

Le subroutine possono essere nidifi¬ 
cate su vari strati di profondità. In al¬ 
tre parole il programma principale 
può chiarnare una subroutine che uti¬ 
lizza essa stessa una subroutine e così 
via. In ciascun caso il computer impo¬ 
sta un indicatore sullo statement che 
segue il comando Gosub e salta alla 
subroutine specificata. Ogni Return 
incontrato rimanda il computer all’ap¬ 
propriata subroutine precedente, fino 
a che l’ultimo Return lo rimanda da 
ultimo al programma principale. 

C’è un limite al grado di nidificazio¬ 
ne delle subroutine. Il computer ha 
solo una certa quantità di memoria ri¬ 
servata ai puntatori di Return. Nel ca¬ 
so dell’Applesoft questo limite è 25. 
Qualora il limite sia superato, il com¬ 
puter reagirà con un Out of Memory 
Error. In questo caso può darsi che 
rimanga parecchia memoria per le 
istruzioni di programma e variabili; 
rOut of Memory riguarda lo spazio di 
stack per i puntatori di Gosub/Return. 

Insorgono difficoltà se si sta ese¬ 
guendo una subroutine e si decide di 
saltare in modo anormale fuori della 
subroutine con un comando Goto. Ciò 
lascerà un puntatore Gosub/Return 
sullo stack per tutto il resto del pro¬ 
gramma, e il computer penserà sem¬ 
pre di essere un livello più giù nelle 
subroutine nidificate di quello che in 
realtà si vuole. L’Applesoft provvede 
una via di uscita da questa situazione 
con il comando POP. Questo coman¬ 
do di una sola parola deve essere usato 
proprio prima che sia eseguito il Goto. 
Un’esemplificazione di come si po¬ 
trebbe utilizzare questo sistema è data 
nell’esempio 1. 

Esempio 1. Il comando POP illu¬ 
strato. 

1150 la subroutine comincia qui 

1280 IF R% > S% THEN POP: 

GOTO 350 

1340 RETURN 

POP toglie l’ultimo indirizzo punta¬ 
tore dallo stack Gosub/Return proprio 
come se fosse stato eseguito un co¬ 
mando Return. Per la chiarezza del 
programma, tuttavia, simili salti anor¬ 



mali fuori delle subroutine dovrebbe¬ 
ro essere usati con molta parsimonia. 

La strutturazione 
dei programmi con le 
subroutine 

Due sono le principali ragioni per 
l’impiego delle subroutine. La prima è 
quella di evitare di dover ripetere lo 
stesso blocco di codice più volte in uno 
stesso programma. Una specifica sub¬ 
routine può essere richiamata varie 
volte dal programma principale, ogni 
volta che se ne ha bisogno. Il comando 
Return rimanderà sempre il program¬ 
ma al punto appropriato del program¬ 
ma principale, dal quale riprenderà 
l’esecuzione sequenziale. La miglior 
collocazione delle subroutine usate a 
questo scopo è vicino all’inizio di un 
programma (numeri di linea bassi). 
Questo migliora l’efficienza del pro¬ 
gramma, dato che il Basic comincia a 
cercare il numero di linea del Gosub 
sulla prima linea del programma, e 
continua a ispezionare i numeri di li¬ 
nea fino a quando trova quello ri¬ 
chiesto. 

Si cominciano generalmente le rou¬ 
tine di programma principale sulla li¬ 
nea 1000, riservando le prime linee del 
programma ai Remark e a un coman¬ 
do GOTO 1000. Ciò lascia spazio in 
abbondanza per queste subroutine 
frequentemente utilizzate. 

Un secondo impiego delle subrouti¬ 
ne è sovente trascurato dal program¬ 
matore di Basic, probabilmente per¬ 
ché è troppo facile mettersi semplice- 
mente seduti a scrivere il codice. La 
programmazione dovrebbe comincia¬ 
re con un piano accuratamente studia¬ 
to, che dipinga ciascuna delle princi¬ 
pali funzioni del programma. Poi 
ognuna di queste funzioni dovrebbe 
essere ulteriormente definita in termi¬ 
ni di sottofunzioni. Ogni sottofunzio¬ 
ne dovrebbe essere trattata allo stesso 
modo, fino a che l’intero programma 
si presenti come esecuzione sequen¬ 
ziale chiaramente definita di funzioni 
abbastanza semplici. 

Solo allora si dovrebbe scrivere la 
prima linea di codice. Ogni semplice 
funzione definita al termine della fase 
di analisi del programma può essere 
scritta come subroutine esclusiva. Il 


programma principale diventa allora 
una serie di comandi Gosub. Se si fa 
copioso impiego di statement Remark 
il programma diventa quasi autodocu- 
mentante. Si legge facilmente dalla se¬ 
quenza delle subroutine il flusso della 
logica. Può essere utile impiegare il 
numero di linea che precede immedia¬ 
tamente la prima linea di una subrouti¬ 
ne per un adatto statement di Remark 
il quale identifichi la subroutine che lo 
segue. Per esempio se la subroutine 
comincia a linea 800, la linea 799 re¬ 
cherà lo statement Remark di identifi¬ 
cazione. In questo modo se si devono 
togliere certi Remark per fare più spa¬ 
zio al programma si possono reperire e 
togliere con facilità, senza timore di 
cancellare un numero di linea in rela¬ 
zione con un comando Goto o Gosub. 

Si hanno diversi vantaggi conge¬ 
gnando in questo modo un program¬ 
ma, oltre a quello della facilità con cui 
lo si può leggere. Una volta che ci si è 
abituati a scrivere i programmi usando 
tecniche strutturate come questa si 
troverà che il tempo di scrittura di un 
determinato programma sarà conside¬ 
revolmente abbreviato. Si individue¬ 
ranno subroutine usate in precedenza 
che possono essere semplicemente co¬ 
piate nel nuovo programma con poco 
o punto cambiamento. Si troverà che 
subroutine nuove possono essere col¬ 
laudate per conto loro per verificare 
che siano scritte correttamente, senza 
dover percorrere l’intero programma 
per il test di una singola funzione. Si 
troverà che in seguito, quando si tor¬ 
nerà al programma per fare modifiche 
nella sua operazione, quei cambia¬ 
menti saranno molto più facili da fare 
con minor probabilità di interferenza 
con un’altra parte del programma. 

Scorciatoie condizionaii 

Sono molto comuni i programmi 
Basic in cui viene utilizzata la sequen¬ 
za di istruzioni qui sotto riportata (o 
l’equivalente): 


IF A>15 THEN GOTO 820 
IF A< = 15 THEN GOTO 750 

Sulla base della precedente tratta¬ 
zióne è ovvio che la seconda compara¬ 
zione relazionale non è necessaria. Es¬ 
sa non fa che rallentare l’esecuzione 
del programma. Si potrebbe usare al 
suo posto, con i medesimi risultati, l’i¬ 
struzione GOTO 750. 

Si impiegano spesso nei programmi 
flag da usare in espressioni condizio¬ 
nali. Per esempio una certa parte di un 
programma potrebbe essere usata sia 
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per rintroduzione di dati sia per Tedi- 
ting. Si supponga che il blocco di istru¬ 
zioni comune faccia parte del pro¬ 
gramma principale per l’introduzione 
dei dati, e che un flag, per esempio 
F2%, sia zero durante l’introduzione 
dei dati. Adesso si supponga che lo 
stesso blocco di istruzioni sia utilizzato 
come subroutine per l’editing, con 
F2% impostato su 1. Per tornare dal 
blocco di istruzioni per la routine di 
editing si potrebbe usare la seguente 
linea: 

IF F2% THEN RETURN 

F2% in sé è preso come relazione 
logica ed è valutato come vero o falso 
sulla base del suo valore. Sempre che il 
suo valore non sia zero sarà valutato 
come vero. 

Due strutture di programmazione 
non sostenute dall’Applesoft sono i 
comandi Until/Do e Repeat/Until. 
Questi due comandi sono comuni nei 
linguaggi strutturati come il Pascal. 
Essi identificano un blocco d’istruzio¬ 
ni che devono essere eseguite ripetuta- 
mente fino a quando sia incontrata 
una specifica condizione. La principa¬ 
le differenza fra i due è che con la 
struttura Until/Do il test della condi¬ 


zione viene fatto prima che il blocco di 
istruzioni sia eseguito, mentre con il 
comando Repeat/Until il test della 
condizione viene fatto dopo il blocco 
di istruzioni. La tentazione nel Basic è 
di istituire un loop For/Next e scrivere 
internamente al loop un test condizio¬ 
nale che faccia saltare il computer fuo¬ 
ri del loop quando la condizione è sod¬ 
disfatta. Questo implica un altro salto 
Goto, e presenta altri rischi che sono 
stati indicati nella puntata pubblicata 
sul numero scorso. 

Nel Basic il comando Until/Do può 
essere compiuto dichiarando la condi¬ 
zione prima del loop con l’impiego di 
un If/Then come nell’esempio 2. 
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rif/Then dopo il blocco di istruzioni da 
ripetere se la condizione non è soddi¬ 
sfatta, come nell’esempio 3. 

Esempio 3. Comando Repeat/ 
Until. 

REPEAT...UNTIL A = B 
100 inizio del blocco di program¬ 
ma da ripetere 


Esempio 2. Scorciatoia Until Do. 

UNTIL A = B DO... 

100 IF A = B TUEN 190 
110 blocco di programma da ri¬ 
petere 

180 GOTO 100 

190 il programma continua da 
qui 

Il Repeat/Until è eseguito inverten¬ 
do la relazione condizionale e usando 


180 IF AOB THEN 100 

190 il programma continua da 
qui 

Per quanto entrambe queste strut¬ 
ture nel Basic usino il comando Goto i 
salti vengono fatti a punti direttamen¬ 
te contenuti dalla struttura ciclica e 
non presentano alcun problema di of¬ 
fuscamento dell’obiettivo del pro¬ 
gramma. 

In effetti se il blocco di programma 
che deve essere ripetuto è esso stesso 
una subroutine completa le strutture 
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Until/Do e Repeat/Until diventano di 
una sola linea: 


100 IF AOB THEN GOSUB 1200: 
GOTO 100 


100 GOSUB 1200: IF AoB THEN 
100 


Questo metodo rende davvero 
stringente la logica del programma! Si 
noti l’inversione nell’espressione con¬ 
dizionale per la linea di programma 
che imita il comando Until/Do. 


Come emulare 

l’If/Then/Else 

nell’Applesoft 

Le espressioni relazionali e logiche 
sono valutate +1 se vere, e 0 se false. 
Sapendo questo è possibile istituire in 
Applesoft l’equivalente di uno state¬ 
ment If/Then/Else, e al tempo stesso 
strutturare il programma in modo di 
evitare completamente l’effetto di sal¬ 
ti successivi menzionato prima. Molti 
fautori della programmazione struttu¬ 
rata criticano l’uso del comando Goto, 
affermando che la logica del program¬ 
ma principale dovrebbe scorrere in 
ininterrotta sequenza dall’inizio alla 
fine, senza salti improvvisi causati da 
un GOTO#####. La struttura If/ 
Then/Else, impiegata con subroutine, 
può eliminare un mucchio di questi 
Goto. 

La chiave per risolvere il problema 
consiste qui nell’usare il comando ON 
...GOSUB ####,####. Quando 
viene incontrato questo comando il 
computer valuta l’espressione (che 
può essere una singola variabile, un’e¬ 
spressione aritmetica o un’espressione 
relazionale o logica). 

Se l’espressione risulta 1 viene usato 
il primo insieme di numeri di linea do¬ 
po il Gosub. Se risulta 2 viene usato il 
secondo insieme. In effetti qualsiasi 
numero di numeri di linea potrebbe 
essere listato in sequenza dopo il co¬ 
mando Gosub in modo di corrisponde¬ 
re a qualsiasi piccolo numero intero 
positivo al quale l’espressione possa 
essere valutata. Se l’espressione aves¬ 
se il valore del numero 8 il computer 
cercherebbe l’ottavo numero di linea 
della lista ed eseguirebbe un Gosub a 
quella subroutine. Se il valore dell’e¬ 


spressione risulta qualche numero 
troppo grande per corrispondere a un 
numero di linea della lista il computer 
ignora l’istruzione e continua andando 
al comando successivo. (Incidental¬ 
mente, lo stesso comando può essere 
usato con Goto invece di Gosub, ma 
questo frustra i nostri sforzi di pro¬ 
grammazione strutturata). 

Adesso si supponga di istituire due 
subroutine per un particolare test con¬ 
dizionale nel nostro programma. La 
prima, con inizio a linea 1500, conter¬ 
rà il complesso di istruzioni cui atte¬ 
nersi se la nostra relazione condiziona¬ 
le risulterà vera, mentre la seconda, 
con inizio a linea 1600, tratta la rela¬ 
zione falsa. Se la relazione che viene 
collaudata è l’uguaglianza fra le due 
variabili AB e AC si potrebbe usare il 
seguente statement: 

80 ON (AB=ÀC) + 1 GOSUB 1600, 
1500 

Nella linea 80 viene collaudata la 
relazione fra AB e AC. Se le due sono 
uguali il risultato è +1, cui viene ag¬ 
giunto 1, facendo l’intera relazione 
uguale a 2. Così sarà eseguito GOSUB 
1500. Se invece AB e AC non sono 
uguali il risultato della relazione è 0. 
Quando a questo risultato è aggiunto 1 
viene eseguito il comando GOSUB 
1600. Questo equivale a: 

80 IF AB=AC THEN GOSUB 1500 
ELSE GOSUB 1600 


Naturalmente l’Applesoft non so¬ 
stiene lo statement Else (altrimenti), 
così il solo modo per trattare questa 
situazione è il ricorso al comando ON- 
...GOSUB. Si noti che la logica del 
programma principale scorre liscia da 
linea 80 a linea 90 senza salti succes¬ 
sivi. 

Un’altra struttura che si trova nel 
Pascal e in linguaggi strutturati è il 
comando Case/Of. Questo comando è 
seguito da una lista d’istruzioni, una 
sola delle quali sarà scelta sulla base 
della valutazione dell’espressione nel 
comando Case. Questo comando ha 
un aspetto simile all’esempio 4. 


Esempio 4. Comando Case/Of. 
CASE espressione OF 

1 : lista di comandi 1 ; 

2: lista di comandi 2: 


8: lista di comandi 8 

END: 



Il lettore potrà riconoscere forse la 
somiglianza fra questa e la struttura 
ON...GOSUB già trattata. Nella 
struttura Case/Of, se l’espressione ha 
valore 1 viene eseguita la prima lista di 
comandi; se ha valore 2 è utilizzata la 
seconda lista di comandi; e così via. 
Nel Basic se ogni lista di comandi vie¬ 
ne configurata in subroutine separata 
FON...GOSUB svolge la stessa fun¬ 
zione. 

La relazione non si ferma però qui. 
Il comando Case/Of può usare anche 
lettere o parole complete per specifi¬ 
care quale delle liste di comandi sia da 
eseguire. Anche il Basic ha questa ca¬ 
pacità, se saremo abbastanza ingegno¬ 
si da costruire le adatte espressioni re¬ 
lazionali da usare per la nostra espres¬ 
sione ON...GOSUB. 

Si osservi l’espressione Case/Of del¬ 
l’esempio 5, che calcola il volume di 
diversi solidi. Il programma Pascal va¬ 
luterà la, variabile stringa denominata 
SHAPE (forma, figura) ed eseguirà il 
calcolo voluto se SHAPE sarà uguale 
a cubo, scatola o sfera. 

Esempio 5. Espressione Case/Of. 

CASE FIGURA OF 
CUBO: VOL = S*S*S: 
SCATOLA: VOL = L*P*A; 
SFERA: VOL = (4/3) 

*PI*R*R*R 

END; 

Nel Basic, se SH$ rappresenta la 
forma dell’oggetto possiamo formula¬ 
re espressioni relazionali da usare in 
uno statement ON...GOSUB. Per 
esempio l’espressione (SH$ = “CU¬ 
BO”) avrà valore +1 se vera e 0 se 
falsa. Se moltiplicheremo questa 
espressione per un numero il risultato 
sarà quel numero quando l’espressio¬ 
ne sarà vera, e zero quando sarà falsa. 
La struttura di Basic che esegue l’e¬ 
sempio Case/Of mostrato sopra diven¬ 
ta allora: 

ON (SH$ = “CUBO”) ★! + (SH$ = 
“SCATOLA”) ^2 + (SH$ = “SFE¬ 
RA”) *3 GOSUB 1100, 1150, 1200 

Così se SH$ è “SFERA” l’intera 
espressione diventa 0+0+3=3 e sarà 
la terza subroutine, a linea 1200, a es¬ 
sere scelta. 

Nel prossimo articolo saranno trat¬ 
tati due temi: come rendere modulari 
le routine di disk file ad accesso casua¬ 
le e come usare il dischetto per memo¬ 
rizzare i dati ad accesso casuale con 
pochissima confusione o mal di capo. 

4. Continua. 
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DISEGNA 
LE TUE DEE. 



Da oggi il tuo APPLE può anche disegna¬ 
re. Così le tue idee, i tuoi dati avranno 
nuova vita, una vita tutta a colori. Per 
l’esattezza 4 colori con il cambio automa¬ 
tico, ma con la possibilità di avere fino a 
otto colori. E non avrai problemi di spazio 
perché potrai disegnare su fogli fino al 
formato A3 (297x420 mm). E che veloci¬ 
tà: fino a 10 cm al sec per asse (program¬ 


mabili da 1 cm/sec in su con passi di 
1 cm/sec). E la precisione? Si possono 
indirizzare le penne con passi di 0,1 mm e 
avere una ripetibilità di 0,2 mm. Per quan¬ 
to riguarda l’interfaccia, una porta RS- 
232C consente un facile collegamento 
con il tuo APPLE e non solo con lui. 

Vai dal tuo rivenditore, c’è un nuovo ami¬ 
co per il tuo amico APPLE. 


flfeppkz computer 


Per far crescere il tuo personal. 


Apple Computer S.p.A. 

Via Bovio, 5 (zona ind. Mancasale) - 42100 Reggio Emilia (Italy) - Tel. 0522/32643-4-5-6 511507 511007 - Telex 530173 IRETRE I 
Milanofiori Palazzo Q 8 - 20089 Rozzano (MI) - Tel. 02/8242156-7-8-9 
Via Parigi, 11 - 00185 ROMA - Tel. 06/4756640 
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Frecce e mele vanno d’accordo almeno dai tempi 
di Guglielmo Teli. Perché non provare anche con l’Apple? 


Mela 

e freccette 



Q uesta versione compu¬ 
terizzata o, se si prefe¬ 
risce, appuzzata delle frec¬ 
cette nulla toglie al gusto del 
popolare gioco, eliminando¬ 
ne nel contempo l’indubbia 
pericolosità. 

Per trascrivere il pro¬ 
gramma, la prima cosa da 
fare è quella di copiare il li¬ 
statino in linguaggio mac¬ 
china, la tavola delle figure, 
dopo aver chiamato il moni¬ 
tor battendo CALL-151. La 
tavola delle figure ne contie¬ 
ne tredici: i numeri da 0 a 9, 
un quadratino, una freccia 
ed un quarto di cerchio. Una 
volta finita la trascrizione si 
ritornerà all’Applesoft im¬ 
postando 3D0G, e si salve¬ 
rà la tavola su dischetto con 
un BSAVE DB SHAPES 
A$9400/L185, 
A$9400,L185. Notare che è 
stato ripetuto anche nel nome l’indi¬ 
rizzo di partenza e la lunghezza della 
tavola, in modo che questi dati siano 
facilmente individuabili anche in futu¬ 
ro. Tutto è infine pronto per caricare il 
programma Applesoft: poiché non 
esistono particolari complicazioni o 
tortuosità, lo si può digitare semplice- 
mente seguendo il listato. 

Non appena il programma inizierà a 
girare, chiederà se si desiderano o me¬ 
no le istruzioni, dopodiché si potrà 
scegliere tra due livelli di difficoltà dif¬ 
ferenziati. Per disegnare il bersaglio 
sullo schermo il programma prende il 
suo tempo, a causa del peculiare siste¬ 
ma di tracciamento adottato. A questo 
punto, non resta che premere il pul¬ 
sante della paddle per lanciare la pri¬ 
ma freccetta. 

Come funziona 

Il programma inizializza innanzitut¬ 
to le variabili d’impiego più frequente 
aU’inizio della tabella relativa, e, nella 
linea 1, DIMensiona la matrice neces¬ 


saria saltando quindi alla linea 15000, 
che provvede alla stampa del titolo e 
gestisce la routine delle istruzioni. La 
linea 16000 permette poi di seleziona¬ 
re il gioco richiesto e il relativo livello 
di difficoltà, dopodiché controlla se si 
è già giocato in precedenza (IF F>0), 
e azzera i punteggi ottenuti. Il passag¬ 
gio alla linea 16010 indica che il gioco è 
il primo dopo un comando di RUN, 
dopodiché la tabella delle figure viene 
letta da dischetto (linea 10000), viene 
predisposto il colore, e la successione 
esecutiva passa alla linea 1000, dove 
comincia l’elaborazione delle routines 
grafiche che provvedono a disegnare il 
bersaglio. Le linee 1000-1035 disegna¬ 
no, in particolare, il primo cerchio seg¬ 
mentato; invece di utilizzare un più 
elegante FOR.. .NEXT, è stato neces¬ 
sario INCrementare un contatore per 
controllare il valore della coordinata 
X, diminuendo gradualmente l’incre¬ 
mento man mano che le linee si avvici¬ 
nano all’orizzontale. Le linee 1030- 
1035 verificano in quale quadrante si 
debbano disegnare, mentre le subrou¬ 


tine da 200 a 230 finalmente 
provvedono al disegno vero 
e proprio. 

Le linee 1040-1045 ripeto¬ 
no la routine per i cerchi più 
interni utilizzando i medesi¬ 
mi criteri salvo che, stavol¬ 
ta, sono necessarie alcune 
commutazioni cromatiche 
per poter cancellare parte 
delle linee tracciate dalla 
routine precedente. Le linee 
1080-1090 disegnano l’ulti¬ 
mo cerchio nero, ancora una 
volta eliminando parte delle 
linee tracciate dalle routine 
precedenti. Infine, arrivia¬ 
mo alle linee 1095-1100 che 
disegnano il centro del ber¬ 
saglio. 

La linea 1145 legge le ta¬ 
belle dei data, registrando le 
coordinate x e y (XC e YC) 
dei cerchi numerati di cia¬ 
scun segmento, quindi va in 
GOSUB alla linea 1200 che disegna il 
quarto di cerchio in 4 ROTazioni e 
infine alla subroutine delle linee 1210- 
1225, che tracciano i numeri all’inter¬ 
no di ciascuno dei cerchi. A questo 
punto il bersaglio è completo. La linea 
1230 legge in tutti i cerchi esterni le 
coordinate OX(X) e OY(X), e analo¬ 
gamente nei cerchi interni le coordina¬ 
te IX(X) e IY(X), come pure legge ed 
effettua i POKE della routine sonora. 
In realtà il grosso del programma ri¬ 
guarda l’impostazione iniziale, ed è 
utilizzato per una sola volta. 

Il programma principale 

La parte principale del programma 
risiede tra la linea 240 e la 280: si salta 
da segmento a segmento disegnando il 
cursore, cancellandolo e saltando nuo¬ 
vamente alla linea 300 per verificare se 
il tasto che comanda il lancio della 
freccetta relativo è stato schiacciato; al 
livello di difficoltà 1 il cursore si sposta 
sempre in senso antiorario, mentre al 
livello 2 la traiettoria è casuale. Il flagg 
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1 REM ********************** 

2 REM « FRECCETTE ♦ 

3 REM BY ROBERT DEVINE * 

4 REM * COPYRIGHT (C) 1984 * 

5 REM » BY APPLIC^DO & * 

6 REM * MICRO-SPARC INC. * 
1 REM ********************** 


10 X = 8jF = 0;PL = 0!D = 0:Y = 8!lNC = 0: DIM OX(20),0Y(28),IX(20),IY(28), 
C(20): GOTO 15000 

100 HC0L0R= 0; IF X / 2 = INT (X / 2) THEN HC0L0R= 3 
185 RETURN 

110 HC0L0R= 3j IF X / 2 = M (X / 2) THEN HC0L0R= 8 
115 RETURN 

200 HPLOT 140 4 X,79 + Y TO 148,79 TO 140 - X,79 - Y; RETURN 

210 HPLOT 148 4 X,79 - Y TO 148,79 TO 148 - X,79 4 Y: RETURN 

220 HPLOT 140 4 X,79 4 Y; HPLOT 140 - X,79 - Y; RETURN 

230 HPLOT 140 4 X,79 - Y; HPLOT 148 - X,79 4 Y; RETURN 

240 F = 3; ON (D = 1) GOTO 245: ON INT ( RND (1) * 2) GOTO 245; FOR X = 28 

TO 1 STEP - 1 : GOTO 258 

245 FOR X = 1 TO 20 

250 GOSUB 100; DRAW 11 AT 0X(X),0Y(X); GOSUB 118; ORAU 11 AT 0X(X),0Y(X); GOSUB 
388; NEXT 

2Ó0 F = 2; ON (D = 1) GOTO 265: ^ INT ( RND (1) * 2) GOTO 265; FOR X = 20 

TO 1 STEP - 1 ; GOTO 270 

265 FOR X = 1 TO 28 

270 GOSUB 110; ORAU 11 AT IX(X),IY(X); GOSUB 188; DRAU 11 AT IXa),IY(X); GOSUB 
308; NEXT ;X = 8 

280 F = i; HC0LÒR= 0; DRAU 11 AT 148,79; HC0L0R= 3; DRAU 11 AT 148,79; GOSUB 
380; GOTO 240 

300 IF PEEK ( - 16287 4 PL - 1) > 127 THEt^ HC0L0R= 5; ON F GOSUB 318,315 

.320;T = T 4 1; ON G GOSUB 350,408 

385 RETURN 

310 DRAU 12 AT 140.79; RETURN 
315 DRAU 12 AT IX(X),IY(X); RETURN 
320 DRAU 12 AT 0X(X),0Y(X); RETURT^ 

358 REM GIOCO 1 (PU'fTEGGIG 1-28) 

355 IF C(X) = PS(PL) 4 1 THEN PS(PL) = C(X) 

360 IF PS(PL) = 20 ^D F = 1 THEN HC0L0R= 3; GOSUB 318; GOTO 608 

378 GOTO 610 

480 REM GIOCO 2 (Pl^TTEGGIO 588) 

485 IF F = 3 mi} (X / 2 = INT <X / 2)) THEN PS(PL) = PS(PL) - C(X): GOTO 
618 

410 IF F = 2 FWD (X / 2 < > INT (X / 2)) THEN PS(PL) = PS(PL) - C(X); GOTO 
610 

415 IF F = 1 THEN PS(PL) = PS(PL) 4 50; GOTO 438 
420 PS(PL) = PS(PL) 4 C(X) 

438 IF PS(PL) > = 588 THEN GOSUB 628; GOTO 608 
440 GOTO 618 

608 HOME ; VTAB 22; HTAB 10; FLASH ; PRINT 'HA VirffO IL GIOCATORE "PL“!!!“ 

; NOm : POP ; POP ; FOR X = 1 TO 1008: NEXT X; HOME ; VTAB 21; PRINT 
“VUOI GIOCARE INCORA ?(S.^)-;; GET Al; PRINT : IF Al = •$“ THEN 16800 
605 TEXT ; HOME ; PRINT CHRI (4^CATAL0G': END 

618 FOR Y = 1 TO 188; NEXT Y: (G = 2) GOTO 612; ON (T < 3) GOTO 615;T = 

0 

612 PL = PL 4 1; IF PL = 3 THEN PL = 1 

615 VTAB 21; PRINT “PUNTEGGIO 1= “PS(1)“ PUNTEGGIO 2= “PS(2)“ VTAB 2 
3; FOR Y = 1 TO PL; POKE 768.108 * PL; POKE 769,58; CALL 778; NEXT Y; PRINT 

“E' IL TURNO DEL GIOCATORE “PL“-UV^CIO “T 4 { 

620 ON (F - 1) GOSUB 100,118; ON (F - 1) GOTO 315,320; HCOLOR= 3; GOTO 310' 

1000 INC = 1;X = 0 
1885 IF X > 58 THEN INC = .58 

1818 IF X ) 71 THEN INC = .18 

1015 IF X > 78.11 THEN INC = .83 
1820 X = X 4 INC; IF X > 79 THEN 1048 
1025 Y = SOR (6241 - X ‘ 2) 

1830 IF X < = 24 OR (X > = 46 ^D X < = 63.2) OR X > =75 THEN GOSUB 

1835 1F‘(X > 24 ^D X < 46) OR (X > = 63.2 ^D X < 75) THEN GOSUB 218; GOSUB 

220; GOTO 1805 
1040 INC = 1;X = 0 
1045 IF X ) 33 THEN INC = .58 
1050 IF X > 40.5 THEN INC = .10 
















1855 IF X > 44.5 THEN INC = .03 

10Ó8 X = X + INC; IF X > 45 THEN 1888 

1065 Y = SOR (2825 - X ' 2) 

1870 IF X < = 13.5 OR <X > = 26 X < = 36) OR X > 42.75 THEN HCOLOR= 

3; GOSUB 218; HCOLOR= 0; GOSUB 280; GOTO 1845 

1875 IF <X ) 13.5 ^ X < 26) OR (X > 36 AND X < 42.75) THB^ HCOLOR= 3; GOSUB 

288; HCOLOR= 8; GOSUB 218; GOTO 1845 
1088 INC = 1;X = 0 

1085 HCOLOR= 0; IF X > 11 THEN INC = .83 
1898 X = X + INC; IF X > 15 THBI 1095 

1092 Y = SOR (225 - X ‘ 2); GOSUB 286: GOSUB 218; HCOLOR= 3; GOSUB 228: GCSUB 

230; GOTO 1885 

1095 HCOLOR= 3; FOR X = 8 TO 6 STEP .10 

1180 Y = SOR (36 - X * 2): GCSUB 288; GOSUB 219: NEXT X; GOTO 1145 
1145 FOR A = 1 TC 20: READ XC.YC.C; GOSUB 1288: GOSUB 1210; NEXT A: GOTO 1 
230 

1288 HCOLOR= C; SCALE= 1: FOR X = 8 TO 48 STEP 16; ROT= X; DRAU 13 AT XC,Y 
C: NEXT X; RETUI^ 

1218 IF C = 0 THEN C = 3; GGTO 1228 
1215 C = 8 

1228 HC0LUR= C: SCALE= 1; ROT= 0;N^ = STR$ (A); IF LE.N ;V$) = I THEN DRAi^ 



m) t 1 AT XC,YC; RETURf^ 

1225 DRAù) ‘vSAL ( LEFT$ (N$,l)) 4 i AT XC - 4,YC; DRAW ( RIGHT$ m,\) 

) 4 1 AT XC 4 3.YC: RETURfs 

1239 FOR X = 1 TO 20; READ OX(X),OY(X): NEXT X: FOR X = 1 TO 29; READ IX(X 
),IY(X); NEXT X; POR X = 1 Ti: 28: READ C(X); NEXT X: FOR X = 778 TO 79 
8; READ Y; POKE X.Y; NEXT X; GO'^O 248 

10080 PRINT CHR$ (4)'BL0AD DB SHAPES A$9400/L185''; HIHEN; 37888; POKE 232 
,0: POKE 233.148; RETURf^ 

10839 RB’1 NIHERO COORDINATE E COLORI DEL CERCHIO XC.YC.C 
10040 DATA 171.18,9,17:,141,2,:29.147,3,29l,48,0,Ì29;iÌ,8 ,207,90J,92,l 
28,3,72.86.3.93^0, 8 , 281 , Ile.3,72,67, 0 . 118 , 18 , 3,20.7,69.3, 79, 47,3, 188,1 
29.0,79,118.è, 151, 147.0.188,38, 3.113,141,0,151,il,3 
18049 m COORDmE TRACCIATO ESTEI^G 0X(X),uY(X) 

19850 DATA 138,26.117,31,184.41,93,54,88,78,39,86,94,182,183,116,116,127 
,131,122.150,132,165,127,178,116,185,102,190,87,191.78,186,55,177,41,1 
64.31,149.26 

18854 RBi COORDIìWE TRACCIATO INTEI^C IX(X), IY(X) 

10855 DATA 135,48,124,43,113.50,186,61,183.73.184,85.197.96,114,187,123 
.114,136,117,147,117,156,114, 167, 107,174,97, 177,«5,176,72,173,68, 166,5 
8,157,43,146,40 

18059 REM QUADRO IN .WIORARIO C(X) 

10868 DATA 5.12,9,14,11,3,16.7,19,3,17,2,15,18,6,13,4,18,1,29 
18869 REM SUCTIO 

10078 DATA 173,48,192,136,288,5,286,1,3,249,9,282,298,245,174,8,3,76,2,3, 
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15888 HOME ; '/FAB 3; PRINT TA8( 17)“DARTS'‘; PRllHT ; PRINT TAB( i3)^C0PYR 
IGHT 198r; PRINT ; PRINT TAB( 12)"RGBERT R. OEMV i PRINT ; print taB'; 
13)"AD0r^ ARKANSAS"; PRirfT ; PRINT 

15818 PRINT TAB( 18)"ISTRU2ICÌ^I ?(S/N)";: GET A$i «^RINT ; PRTN" ; PRINT ; 

IF A$ = "N" THBs 16800 

15828 HOME ; ^AB 6: PRINT “QUESTO GIOCO SIMULA IL u^CIO DELlE"; PRI^fi "F 
RECCETTE. IL GIOCATORE 1 USERÀ' lA**; PRINT “PADDLE 6, IL GIOCATORE 2 L 
A PADDLE l.“: PRINT ; PRirTf ‘SULLO SCHERMO COMPARIRÀ’^ IL BERSAGLIO" 

15825 PRINT "SUDDILUSC IN SEZIOT^I COI IL RELATIMO"; PRM “vALORE.'’: PRINT 
; PRINT ’Qmm IL QLADRATINO LUMINOSO PASSERA''’: PRINT "NELLA SEZIONE 
DEL BERSAGLIO CHE SI vUOlECOLPIRE BASTA PREMERE IL PULSANTE.“ 

15038 PRIfff ; PRINT “BATTI m QLALSIASI TASTO PER COTTINUARE*; : GET A$; HOME 
; HTAB 2; PRINT ‘'AHENZIOìE! PUOI GIOCARE IN DUE MODI."; ‘/TAB 3; KTAB 
16: INVERSE ; PRÌ-NT “GIOCO T; mm. 

15835 PRINT ; PRINT “L^INCE CHI PER PRIMO COLPISCE IN ORDINE"; PRINT : PRINT 
‘PROGRESSIVO I Himi DA 1 A 28 E PER“: PRM ; PRINT “ULTIMO IL CENTR 
0 D^L BER3A8’ IO ” 

15840 HTAB 16; VTAS’ll; IMRSE ; PRM "GIOCO 2"; NORMAL 

15843 PRINT ; PRINT “VINCE CHI RAGGIUNGE PER PRIMO 589 POTI."; PRI^r “OGf^ 

I SEZIONE IL VALORE CORRISPO^IDBTfE* : PRir^ “MBfTRE IL CB^^RO DEL BE 
RSA6 IO ‘vALE 58"; PRINT ; PRINT “PilfTI.* 

15944 PRirfT ; PRM “ATTENZIOr^E SE SI COLPISCE 0^ QLADRATO“; PRINT ; PRM 
•NERO VERRÀ' SOTTRATTO DAL TOTALE." 

15845 PRM ; PRINT 

16808 INPLIT “GIOCO; 1 0 2 ?“;G; QT^ (6 < 1 OR G > 2) GOTO 16888: VTAS 24; PRINT 
; INPUT “DIFFICOLTA'; 1=MIN0RE 2=MAG8I0RE“;D: H(^E ; IF F > 8 THEN Pi = 
1;PS(1) = 0;PS(2) = 0;T = 8: GOTO 248 
16810 GOSUB 18888; HI^E ; HGR ; HCOLOR= 3;PL = 1; GOTO 1808 
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La tavola delle figure. Si chiama 
battendo CALL151 e si salva sul 
dischetto con l’istruzione BSAVE DB 
SHAPES A$ 9400/L185, A$ 9400, LI 85. 

F specifica se si è colto un cerchio in¬ 
terno oppure esterno, oppure se si è 
colpito il centro. Premuto il tasto di 
fuoco, il programma salta alle linee 
310-320 per disegnare la freccetta, in¬ 
crementa il contatore di lancio T e pas¬ 
sa alle subroutine di punteggio a 350 
oppure 400. Aggiornato il punteggio 
PS(PL), la routine ricerca un eventua¬ 
le vincitore. Se non ve ne sono, l’ese- 
cuzione passa alla linea 610 che verifi¬ 
ca eventuali cambi di giocatore, scrive 
il punteggio aggiornato, segnala con 
uno o due beep il turno del giocatore 
successivo, salta alla linea 100 o 110 
per predisporre il colore, e quindi alle 
linee 310, 315 o 320 per cancellare la 
freccetta. 
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UNA MEMORIA 
"MVIDIABILEr 



Prova contare quanti dischetti hai colle¬ 
zionato da quando hai il tuo APPLE. Tan¬ 
ti, vero? Ma da oggi anche il tuo APPLE// 
può essere collegato al PROFILE, la me¬ 
moria a disco fisso da 5 milioni di caratteri. 
Con PROFILE e il nuovo sistema operati¬ 
vo ProDOS la gestione di memoria del tuo 
APPLE vivrà una nuova vita. Il ProDOS 


||applG computer 

Apple Computer S.p.A. 

Via Bovio, 5 (zona ind. Mancasale) - 42100 Reggio Emilia (Italy) 
Milanofiori Palazzo Q 8 - 20089 Rozzano (MI) - Tel. 02/8242156- 
Via Parigi, 11 - 00185 ROMA - Tel. 06/4756640 


oltre a lavorare più velocemente ti con¬ 
sente di gestire fino a 32 Mb di memoria, 
con struttura del directory a più livelli (fino 
a 12) e con completa compatibilità di file 
dati con l’APPLE ///. È proprio ora di tra¬ 
sferire i tuoi dischetti su PROFILE. 

Vai dal tuo rivenditore, c’è un nuovo ami¬ 
co per il tuo amico APPLE. 


Per far crescere il tuo personal. 


Tel, 0522/32643-4-5-6 511507 511007 - Telex 530173 IRETRE I 
’-8-9 





Programmare in Pascal non è difficile: 
l’importante è procèdere per gradi. 

Si scoprirà che è molto più naturale, e la possibilità 
di usare anche parole italiane 
ne semplifica molto la scrittura ma anche la lettura. 

Un linguaggio 
pieno di risorse 


C on questo articolo inizia un corso 
pratico di Pascal, fondamentale 
per chi vuole imparare questo linguag¬ 
gio sempre più noto e utile per chi già 
lo conosce, ma desidera ripassarne i 
principi e scoprirne nuove applicazio¬ 
ni. Queste lezioni insegnano a pro¬ 
grammare in Pascal su qualunque 
computer, anche se gli eventuali detta¬ 
gli tecnici saranno però relativi al lin¬ 
guaggio installato su Apple. Ma en¬ 
triamo subito nel merito. 

Un programma Pascal comincia 
sempre con la parola PROGRAM e 
termina con la parola END seguita da 
un punto. Dopo la parola PRO¬ 
GRAM deve essere inserito il nome 
del programma. 

Un programma Pascal è sempre 
composto da due parti: la prima con¬ 
tiene la dichiarazione delle risorse 
(questi termini saranno presto molto 
più chiari), la seconda le istruzioni che 
utilizzano queste risorse. Le due parti 
sono separate dalla parola chiave BE- 
GIN, che sta a indicare Tinizio delle 
istruzioni. 

Con queste poche e semplici nozioni 
è già possibile scrivere un primo pro¬ 
gramma in Pascal: inventando un tito¬ 
lo qualsiasi. 

PROGRAM AMELIA; 

BEGIN 

END. 


Questo è un programma completo e 
corretto scritto in linguaggio Pascal. 
Essendo privo di istruzioni e di dichia¬ 
razioni non è in grado di fare niente, 
però non contiene errori. Programma¬ 
re in Pascal non è difficile. L’impor¬ 
tante è imparare per gradi. 


Ecco un altro esempio di pro¬ 
gramma: 


PROGRAM SCACCHI; 

BEGIN 

REPEAT 

acquisisci (mossaavversaria) 
CALCOLA (prossimamossa) 
EFFETTUA (prossimamossa) 
UNTIL PARTITAFINITA 
END. 


Vi sono alcune parole italiane e al¬ 
cune inglesi: quelle inglesi sono parole 
chiave del linguaggio Pascal che hanno 
ovvio significato. «BEGIN...END» 
significano «INIZIO...FINE» e «RE¬ 
PEAT...UNTIL» significano «RIPE¬ 
TI... FINCHÉ». 

La zona dove compaiono i tre punti¬ 
ni, nel programma, è la parte dedicata 
alle dichiarazioni, che può anche esse¬ 
re piuttosto lunga. In ogni caso il pro¬ 
gramma è abbastanza facile da capire: 
in sostanza dice di acquisire la mossa 
avversaria, calcolare la prossima mos¬ 
sa e stamparla in qualche maniera; il 
tutto va ripetuto fino alla fine della 
partita. Questo esempio serve a capire 
uno dei principi del Pascal: la pro¬ 
grammazione strutturata. 

Scrivere dei programmi in modo 
strutturato significa scriverli in una 
maniera facilmente comprensibile, 
preoccupandosi più dello sforzo uma¬ 
no che non del lavoro effettuato dalla 
macchina. Programmando in Pascal si 
scriverà inevitabilmente in modo 
strutturato. 

In un programma Pascal le istruzio¬ 


ni sono scritte in basso, cioè nella se¬ 
conda parte del programma. Nella pri¬ 
ma ci sono le dichiarazioni (vedere fi¬ 
gura 1). 


La parte-dichiarazioni è stata dise¬ 
gnata non a caso più grossa della par¬ 
te-istruzioni, in pratica infatti è questa 
a predominare. 

Ci si limiti per ora a^vedere le istru¬ 
zioni, facendo riferimento a dichiara¬ 
zioni molto semplici e intuitive. 

Esistono due tipi di istruzioni in Pa¬ 
scal: istruzioni operative e istruzioni di 
controllo. 

Le istruzioni operative sono quelle 
che causano una effettiva azione da 
parte del calcolatore. Le istruzioni di 
controllo dirigono le istruzioni opera¬ 
tive, nel senso che determinano se la 
loro esecuzione debba essere effettua¬ 
ta o meno e quante volte. In Pascal le 


Program Amelia; 


dichiarazioni 


Begin 


istruzioni 


End 

j Figura 1. Struttura di un prò- 
i gramma. 


67 














84100 SALERNO 

Via E. Bottiglieri. 19 Tel. 089 394491 


• HARDWARE 

• SOFTWARE 

• PERIFERICHE 

• ACCESSORI 

CENTRO DI ASSISTENZA 

(Éappkz computar 


Software 

per il nuovo Apple Ile: 

• Gestione distributori 
bibite 

• Piccoie Industrie 
di trasformazione 


DISTRIBUZIONE PER L’ITALIA 



■ 

ncs 

■ 


IMPORMATICA 

/ 


istruzioni si chiamano anche state- 
ments: termine che sarà usato in segui¬ 
to come sinonimo di istruzione. 

Gli statements operativi si riferisco¬ 
no ovviamente alle operazioni che l’e¬ 
laboratore può svolgere, che sono es¬ 
senzialmente due: 

— manipolare dei dati (fare operazio¬ 
ni aritmetiche, spostare i dati da un 
punto a un altro della memoria, verifi¬ 
care l’uguaglianza tra parole...). 

— manipolare le periferiche di input/ 
output (scrivere sul video, leggere da 
tastiere, scrivere sulla stampante, ag¬ 
giornare i file sui floppy...). 

Le istruzioni operative sono quindi 
due: l’assegnamento per manipolare i 
dati e le chiamate di procedura per 
gestire le periferiche (e per altri utilizzi 
che saranno spiegati nelle prossime 
puntate). La loro sintassi è semplicissi¬ 
ma: per assegnare un valore ad una 
variabile si usa il simbolo: = (due punti 
uguale). Per esempio: 

A:=5 ; 

B:=A+B ; 

MARIO:=PIERO=^GIORGIO 
- 5-f (pigreco/18) ; 


Il simbolo: = ha il significato di «as¬ 
segna», «diventa», «assume il valore». 
Per esempio la prima istruzione si leg¬ 
ge: «A diventa uguale a 5», oppure: 
«assegna il valore 5 ad A», oppure: «A 
assume il valore 5». Il valore prece¬ 
dente della variabile A viene comple¬ 
tamente cancellato e sostituito con il 
nuovo valore. 

Nel terzo esempio viene calcolato il 
valore di PIERO * GIORGIO 
-5 +(pigreco/18) e il risultato viene 
assegnato alla variabile che si chiama 
MARIO, cancellandone il valore pre¬ 
cedente. 

L’operatore di assegnamento: = è 
asimmetrico; infatti la variabile che 
compare alla sinistra viene scritta, ciò 
che compare a destra, invece, viene 
letto e calcolato. 

In Pascal un calcolo o una formula 
prende il nome di espressione. Per 
esempio: 


A:=B ; 


significa che la variabile B viene letta 
ma non modificata e il suo valore viene 
scritto sulla variabile A modificando¬ 
ne il valore precedente. Non bisogna 
confondere l’operatore di asse¬ 
gnamento: = con l’operatore di ugua¬ 
glianza =. L’operatore di uguaglianza 


legge due valori e ne verifica l’ugua¬ 
glianza senza modificare nessuno dei 
due valori. Per esempio: 


IF A=5 THEN 


(l’istruzione IF verrà chiarita in segui¬ 
to) . Qui il calcolatore legge il valore di 
A e vede se vale 5: il risultato di questa 
operazione può essere vero o falso, ma 
il valore di A rimane inalterato. 

Molto semplice è anche la chiamata 
di procedura: poiché ogni procedura 
ha un nome è sufficiente utilizzare 
quel nome, senza comandi come 
CALE, GOSUB e altre complicazioni 
tipiche del BASIC. 

Vediamo alcuni esempi: 


WRITE (5); 

WRITE (AH-B/18); 
EFFETTUA (prossima mossa); 
READ <X); 

UNITWRITE (5,X,.); 


La prima istruzione è una chiamata 
della procedura WRITE la quale fa 
scrivere qualcosa sul video. In questo 
caso comparirà il numero 5 sul video. 
Quello che compare fra parentesi è il 
cosiddetto argomento o parametro at¬ 
tuale (di cui si parlerà nelle prossime 
puntate). Per esempio il parametro 
del secondo statement è una «espres¬ 
sione aritmetica» che viene calcolata e 
il risultato viene scritto sul video. 

Nel terzo esempio si osserva una 
chiamata alla procedura READ la 
quale fa bloccare il programma in atte¬ 
sa di input da tastiera. Quando qualcu¬ 
no batte i tasti opportuni, il valore vie¬ 
ne assegnato alla variabile X e il pro¬ 
gramma continua la sua esecuzione. 

Nell’ultimo esempio viene chiamata 
la procedura UNITWRITE che scrive 
qualcosa su un dischetto: in questo ca¬ 
so viene scritto il contenuto di X nel 
dischetto che sta sull’unità 5, cioè il 
drive-2. 

Riassumendo, le istruzioni o state¬ 
ments operativi possono essere due: 

1) l’assegnamento, la cui forma sintat¬ 
tica è variabile: = espressione; 

2) la chiamata di procedura, la cui for¬ 

ma sintattica è nome di procedura (pa¬ 
rametro, parametro, .). 

Quanto alle istruzioni di controllo: 
queste dirigono il traffico, o meglio 
controllano il flusso del lavoro. 

Per esempio, si consideri un pro¬ 
gramma di contabilità: se si vuole che 
il programma scriva sul video: «CON- 
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Memotutor-Adelco 
sistemi scientifici per 
l'apprendimento rapido. 


Perché non imparare le lingue bene e 
rapidamente? Perché non imparare 
a leggere velocemente e a ricordare 
per sempre tutto queiio che si è letto? 
La Adelco Italia mette a 
tua disposizione i più 
nuovi ed evoluti SISTE¬ 
MI PER MEMORIZZARE 
rapidamente lingue stra¬ 
niere, lezioni, cifre e dati 
di lavoro, discorsi da te¬ 
nere in pubblico, etc. 

Managers, professioni¬ 
sti, uomini d’affari, atto¬ 
ri, giornalisti, persone 
impegnate inteliettual- 
mente, devono ricordare 
ogni giorno moltissime 
cose per svoigere con 
successo ie loro attività. 

I vari SISTEMI PER MEMORIZZARE 
Adelco, studiati e sperimentati con ri¬ 
gore scientifico, ti danno finaimente 
ia possibiiità di sviluppare e sfruttare 
al meglio le potenzialità della tua me-, 


moria. Ad esempio, con il metodo ite¬ 
rativo automatico, puoi far scivolare 
nella mente quanto è stato registrato 
su normali cassette, superando i bloc¬ 
chi psichici dovuti a 
stanchezza fisica, so¬ 
vraffaticamento menta¬ 
le 0 poca disposizione 
per una data materia. 

I SISTEMI PER MEMO¬ 
RIZZARE Adelco si osa¬ 
nno in tutta tranquillità a 
casa propria e garanti¬ 
scono i risultati, perché 
fondati su basi scientifi¬ 
che e su una vasta espe¬ 
rienza internazionale nel 
settore specifico del¬ 
l’apprendimento rapido. 
Vieni a trovarci senza 
impegno per scegliere tra i vari SI¬ 
STEMI quello più adatto alle tue esi¬ 
genze e alle tue disponibilità: troverai 
un valido e sicuro aiuto per progredi¬ 
re sulla strada dei successo. 



Meni a scegliere il tuo. 


Apparecchi elettronici Memotutor e Kronosys, che si 

possono usare di giorno e durante il sonno. Corsi 
speciali in cassette che insegnano a sviluppare la 
memoria ed à leggere rapidamente con il massimo 
della comprensione. Corsi di lingue appositamente 


programmati per divenire un indelebile patrimonio in¬ 
dividuale. Testi ed accessori di studio per aiutare la 
facile e stabile memorizzazione di qualsiasi testo 
stampato o registrato, così da progredire rapidamen¬ 
te e senza fatica. 


MILANO ADELCO ITALIA s.r.l. • Via F. Casati 1/A (Ang. C.so B. Ayres) ■ 20124 Miiano.Tei. 02/2711585 - 2041043 

TORINO HG INTERNATIONAL-Via Massena 77/Bis ■ 10128Torino.Tel. 011/503491 

GENOVA L. BRIOSCHI ■ Calata Porto 4 -16038 S. Margherita L. (Genova).Tel. 0185/89817 

ROMA B & C ■ P.zza S. Giovanni in Laterano 18/B - 00184 Roma.Tel. 06/7598674 

PORDENONE HELSCO s.r.l. - Via Bertossi 7 - 33170 Pordenone.Tel. 0434/24030 

BARI CIMEL SUD s.r.l. - Via A. da Bari 28 - 70122 Bari.Tel. 080/218229 

VARESE CIMEL VARESE ■ Via Montalbano 1-21100 Varese.Tel. 0332/234008 

PALERMO DR. JENZI P. - Via Duca della Verdura 107 - 90143 Palermo.Tel. 091/268602 - 296668 

CAGLIARI B. ZANU ■ Via Libia 4 - 09044 Quartucciu (Cagliari).Tel. 070/884870 

COSENZA G. LAURICELLA - Via C. Colombo 6 - 87068 Rossano Se. (Cosenza).Tel. 0983/21820 

CALTANISSETTA MASTROSIMONE - Via C. Pisacane 12 - 93100 Caltanissetta.Tel. 0934/21436 

PADOVA HELSCO-FORMAT - Via Beethoven 3 - 35132 Padova.Tel. 049/604810 

ANCONA G. CENCIONI - Via Podgora 28 - 60124 Ancona.Tel. 071/32434 



.ADfLXXX Italia.,, 
Sistemi per progredire 


20124 Miiano - Via Felice Casati 1/A -Tel. (02) 2711585 - 2041043 -2046801 


I Ritagliare e spedire in busta regolarmente affrancata a: 

I ADELCO Italia - 20124 Milano - Via Felice Casati 1/A 


I 

I 

I 

I 

I 


Mi interessa: 

Imparare lingue straniere □ 
Imparare la lettura rapida □ 

Nome Cognome. 

Professione. 


Memorizzare dati documenti etc. i . 
Sviluppare la memoria □ 


Tel... 


I Indirizzo 
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Da oggi il tuo APPLE può disegnare scri¬ 
vendo. Oppure scrivere disegnando. Con 
la nuova stampante grafica APPLE potrai 
facilmente inserire un disegno nelle tue 
lettere. Oppure un testo nei tuoi disegni. 
Con i’eccezionale velocità di 160 cps e 
con una speciaie routine intelligente po¬ 
trai avere ia stampa di ben 72 righe al 


minuto. Per non parlare della silenziosità: 
meno di 53 db! Tutto al prezzo di una 
normale stampante a matrice. Da oggi 
non far limitare la tua creatività da un ma¬ 
re di parole che non valgono certo un 
disegno. 

Vai dal tuo rivenditore, c’è un nuovo ami¬ 
co per il tuo amico APPLE. 


^^cippkz computar 


Per far crescere il tuo personal. 


Apple Computer S.p.A. 

Via Bovio, 5 (zona ind. Mancasale) - 42100 Reggio Emilia (Italy) - Tel.0522 /32643-4-5-6 511507 511007 - Telex 530173 IRETRE I 
Milanofiori Palazzo Q 8 - 20089 Rozzano (MI) - Tel. 02/8242156-7-8-9 
Via Parigi, 11 - 00185 ROMA - Tel. 06/4756640 










Em 


GUAGLIO POSITIVO» ogni volta 
che il saldo di un cliente è maggiore di 
zero, cioè se il cliente deve pagare, e 
che scriva: «CONGUAGLIO NEGA¬ 
TIVO» nel caso in cui il fornitore deb¬ 
ba pagare il cliente, in Pascal si scrive 
(supponendo che il saldo sia memoriz¬ 
zato nella variabile SALDO): 


IF SALDO >0 THEN 

WRITE (‘CONGUAGLIO 
POSITIVO’) 

ELSE 

WRITE (‘CONGUAGLIO 
NEGATIVO’) ; 


Per esempio, per calcolare il valore 
assoluto di una variabile A si può fare: 

IF A <0 THEN 

A: = -A; 

In questo caso il punto e virgola de¬ 
nota la fine dello statement «IF» e il 
ramo ELSE è stato omesso. Le istru¬ 
zioni di controllo in Pascal sono 10: in 
questa sede è sufficiente analizzarne 
alcune, rimandando ai manuali per le 
altre e per tutti i dettagli di ciascuna. 
Lo statement CASE serve quando si 
vuole far eseguire uno statement scel¬ 
to fra tanti (l’IF ne faceva eseguire uno 
scelto fra due). Per esempio, ecco co¬ 
me gestire l’input di un video-game: 


eur 

microcomputer 

s.r.l. 


V.lé Cesare Pavese, 267 
00144 ROMA 
Tel. 06/5015975-5000445 
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DISTRUBUZIONE 
PER L'ITALIA 


Nuova filiale: 


Em SARDEGNA s.r.l 
Via Campania, 10 
09100 Cagliari - 
Tel, (070) 288092 


Notare gli apici che delimitano il 
messaggio da far scrivere. Lo state¬ 
ment IF è una istruzione di controllo 
nel senso che contiene al suo interno 
altri due statements (le due WRITE) e 
controlla quale delle due far eseguire 
dal calcolatore. 

IF espressione THEN 
statementl 
ELSE 

statement2 

Lo statement IF non fa nulla di per 
sé, sceglie soltanto se far eseguire lo 
statementl o lo statement2. 

Attenzione a non far confusione: lo 
statement IF non è formato dalla sola 
parola IF, ma da tutto il complesso «IF 
espressione THEN statement ELSE 
statement». Si tratta di un’istruzione 
che contiene al suo interno altre istru¬ 
zioni. Lo statement IF può anche non 
contenere il «ramo ELSE», cioè il suo 
formato può anche essere: 

IF espressione THEN statement ; 


READ (C); 
CASE C OF 
‘X’: SPARA; 

‘<’: SINISTRA; 
‘>’: DESTRA; 
‘A’: SU; 

‘V’: GIU; 

‘S’: SALTA; 

‘?’: ISTRUZIONI 
END; 


In questo frammento di programma 
vi sono due istruzioni una dopo l’altra: 
una chiamata della procedura READ, 
e una istruzione CASE. 

La procedura READ legge un tasto 
della tastiera e lo mette nella variabile 
C; lo statement CASE sceglie quale 
istruzione eseguire sulla base del valo¬ 
re di C. Per esempio, se C contiene il 
carattere «X», allora viene chiamata la 
procedura SPARA. Non ci si deve 
preoccupare di come quest’ultima sia 




Figura 2. 
Rappresentazione 
inflow-chart 
delle istruzioni 
IFeCASE. 
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fatta e chi l’abbia scritta: si supponga 
per ora che esista la possibilità di spa¬ 
rare e che questa operazione venga 
effettuata automaticamente richia¬ 
mando la procedura SPARA. 

Osserviamo la gestione dei tasti di 
direzione, “A”, “V”, per 

far muovere sul video Timmagine in 
cui il giocatore si immedesima e il tasto 
“?” per dare al giocatore le istruzioni 
sul gioco. 

In sostanza l’istruzione CASE ha 
questo formato sintattico: 

CASE espressione OF 
casol: istruzione!; 
caso2: istruzione2; 


casoN: istruzioneN 
END; 


viene ripetuto lo statement, e via di 
seguito finché la variabile assume il 
valore dell’ultima espressione. 

Altro esempio: 


K:=200; 

SOMMA: =0; 

FOR N: = 100 TO K+3 DO 

SOMMA: = SOMMA+N; 

Cosa fa questo frammento di pro¬ 
gramma? Fa una sommatoria di tutti 
i numeri da 100 fino a 203: 
100-h 101-h 102-h...202+203. La varia¬ 
bile SOMMA viene inizializzata a ze¬ 
ro, poi vengono sommati tutti i numeri 
N a partire da 100 fino a K+3, che vale 
203. 

Attenzione, se il limite superiore 
della FOR fosse minore del limite in¬ 
feriore, non viene eseguito neanche 
una volta lo statement. Ad esempio: 


degli statements fino a quando si veri- 
fica una certa condizione. Per 
esempio: 

upppAX 

WRITE (‘VUOI UNA 

STAMPA? (S/N)’; 

READ (C) 

UNTIL (C=‘S’) OR (C=‘N’); 


Qui si vede uno statement RE- 
PEAT che contiene al suo interno altri 
due statements: un WRITE e un 
READ. Questi ultimi due vengono ri¬ 
petuti fino a quando la variabile C vale 
«S» o «N». Quante volte vengono ri¬ 
petuti gli statements WRITE e 
READ? 

Dipende: una volta sola se si preme 
subito una «S» o una «N», più volte se 
si battono dei tasti diversi da «S» o 
«N». 


Per chi è abituato a usare i flow- 
chart, le istruzioni IF e CASE sono 
rappresentate come nella figura 2. 

Per ripetere più volte uno statement 
si usa l’istruzione FOR: per esempio, 
per far emettere sul video una fila di 
numeri consecutivi da 1 a 20 si scriva: 


FORI: = lTO 20 DO 
WRITE (I); 


Da leggersi: «per I che va da 1 a 20 
scrivi I». 

Lo statement FOR serve per ripete¬ 
re una istruzione un numero prefissato 
di volte. Il formato sintattico è: 

FOR variabile: = espressione TO 
espressione DO statement 

All’inizio la variabile di controllo 
(cioè la I nell’esempio precedente) as¬ 
sume il valore della prima espressione 
e viene eseguito lo statement; poi la 
variabile viene incrementata da 1 e 


FOR K:=5 TO 3 DO 
WRITE (‘CIAO’); 


In questo caso lo statement WRITE 
non verrebbe eseguito neanche una 
volta perché 3 è minore di 5. 

Se si vuole avere un decremento di 1 
anziché un incremento di 1 si deve scri¬ 
vere DOWNTO anziché TO. Ad 
esempio: 


FOR K: = 5 DOWNTO 3 DO 
WRITE (‘CIAO’); 

Questa istruzione fa scrivere tre vol¬ 
te ciao sul video, rispettivamente per i 
valori di 5, 4 e 3 che vengono attribuiti 
a k. 

Un altro statement di ripetizione è il 
REPEAT. 

Quest’ultimo statement fa ripetere 
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In omaggio 
al filosofo 

Inventato nel 1972 da Niklaus 
Wirth docente alTUniversità di 
Zurigo, il linguaggio Pascal è il ri¬ 
sultato delPevoluzione dei linguag¬ 
gi precedenti: il COBOL, il FOR¬ 
TRAN, TALGOL, dei quali con¬ 
serva, migliorate, alcune caratteri¬ 
stiche. Al contrario degli altri lin¬ 
guaggi il suo nome non ha alcun 
significato particolare, non contie¬ 
ne le iniziali di alcuna sigla; è solo 
un omaggio al filosofo francese 
Blaise Pascal, vissuto nel XVII se¬ 
colo e inventore della prima mac¬ 
china calcolatrice della storia: la 
Pascalina. 

Si tratta di un linguaggio generai 
purpose e di alto livello, il che si¬ 
gnifica che si tratta di uno strumen¬ 
to adatto ad ogni tipo di utilizzo, 
non costruito per uno scopo speci¬ 
fico e molto vicino al modo di pen¬ 
sare dell'uomo. Le logiche dell'uo¬ 
mo e della macchina sono infatti 
molto differenti: fantasia, gusto 
della metafora, del paragone e al¬ 
tre caratteristiche della mente non 
si sposano facilmente con la ferrea 
matematica dei chip. Uno dei due 
deve cedere alla logica dell'altro, 
accollandosi la fatica di tradurre i 
propri pensieri e la propria logica. I 
linguaggi di alto livello lasciano al 
computer questo compito renden¬ 
do più facile la vita dei programma- 
tori. Certo per il computer è molto 
più comodo ricevere le istruzioni 
direttamente in linguaggio macchi¬ 
na o comunque con codici modella¬ 
ti sulle sue esigenze: ma chi è più 
importante l’uomo o la macchina? 

L’inventore del Pascal pensava 
che fosse più utile facilitare il lavo¬ 
ro del programmatore piuttosto 
che quello della macchina o che co¬ 
munque esistesse tutta una gamma 
di situazioni e di utenti che avreb¬ 
bero preferito pagare con una rela¬ 
tiva lentezza la possibilità di parla¬ 
re al computer in lingua umana. 

Il Pascal permette di scrivere dei 
programmi in modo estremamente 
naturale, usando eventualmente 
anche parole italiane. Il grande 
vantaggio non è solo quello di sem¬ 
plificare la stesura dei programmi, 
ma soprattutto quello di facilitarne 
la lettura. 


La sintassi esatta è: 

REPEAT 

statement; 

statement; 


UNTIL espressione. 

Esiste un altro statement di ripeti¬ 
zione: il WHILE. È molto simile al 
REPEAT. Ecco un esempio: 


WHILE X>0 DO 
X:=X-2; 

Questo statement si può leggere co¬ 
sì: «fintanto che X è maggiore di 0 
esegui X:=X—2». 

La ripetizione continua finché la 
condizione diventa falsa: ovviamente 
la condizione viene valutata ogni volta 
prima di eseguire una ripetizione. 

La sintassi esatta è: WHILE espres¬ 
sione DO statement. 

Per chi ha familiarità con i flow- 
charts ecco la traduzione degli state- 
ments REPEAT e WHILE in figura 3. 

Le differenze fra lo statement RE¬ 
PEAT e il WHILE sono: 

— nel REPEAT lo statement viene 
eseguito comunque una volta perché 
la condizione viene valutata dopo; nel 
WHILE, se la condizione è falsa subi¬ 
to, lo statement non viene mai ese¬ 
guito. 

— nel REPEAT la ripetizione termina 
quando la condizione è vera, nel WHI¬ 
LE quando è falsa. 

— il REPEAT può contenere una se¬ 
quenza di statements al suo interno, il 
WHILE uno solo. 

— la parola REPEAT significa ripeti, 
WHILE significa finché. Questa sotti¬ 
le differenza può influire nell’autodo- 
cumentare il programma, cioè può 
rendere più o meno leggibile il pro¬ 
gramma. 

Spesso gli statements contengono 
uno statement al loro interno: e se fos¬ 
se necessario inserirne più di uno? Esi¬ 
ste uno statement il cui scopo è quello 
di unificare più statements. Si tratta 
del BEGIN-END. Una sequenza di 
statements racchiusa fra BEGIN e 
END viene considerata sintatticamen¬ 
te come un solo statement. Per 
esempio: 

BEGIN 

WRITE (T’); 

X:=X-1 

END; 


sono due statements all’interno di un 
BEGIN-END: vengono dunque con¬ 
siderati come un solo statement. È 
quindi facile scrivere, ad esempio, un 
WHILE che contenga due statements 
anziché uno: 


WHILE X> = 1 DO 
BEGIN 

WRITE (T’); 

X:=X-1 

END; 


Questo frammento di programma fa 
scrivere sul video tante «I» quanto è il 
valore di X: se X vale 4 verranno scrit¬ 
te quattro «I» (il simbolo > = significa 
maggiore e uguale). 

Attenzione. Il BEGIN-END è fon¬ 
damentale: se si scrive: 


WHILE X> = 1 DO 
WRITE (T’); 
X:=X-1; 


10 statement WHILE ripeterebbe solo 

11 WRITE e non il X: =X-1 (fra l’altro 
se X fosse maggiore di 1 sarebbe una 
ripetizione infinita). 

Ovviamente è consentito innestare 
a piacere gli statements (vedere le fi¬ 
gure 4 e 5). 

I segreti 
nel manuale 

Per l'Apple i manuali sui Pascal 
sono due: il celebre Users Manual 
and Report di N. Wirth, l’inventore 
del linguaggio (fornito assieme al¬ 
l’Apple); l'altro è il Pascal, Lan- 
guage Reference Manual, che cita 
solo le differenze e le estensioni del 
Pascal Apple rispetto al Pascal 
Standard di Wirth. Non bisogna 
però confondere quest'ultimo con 
il manuale del Sistema UCSD. cioè 
il Pascal Operating System Ma- 
nual. Questo descrive come usare 
il sistema, cioè come accendere 
l'Apple, come usare l'editor, il Fi- 
ler, il Linker... Non viene però 
trattato il linguaggio. Un manua- 
letto breve, facile e completo, in 
italiano, è Impariamo il Pascal di 
Flavio Waldner, edito dal Gruppo 
Editoriale Jackson. Non è comun¬ 
que l'unico: esiste anche il Pi- 
Pascal Manual edito dalla Clued in 
inglese e altri ne escono a getto 
continuo. 
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LE STAMPAIMTI PER 
TUTTI I COMPUTER 



GP 100 


MODELLO 

GP 100 ve 

GP 100 A/MARK II 

GP 250 X 

Cod. REBIT 

TC/2026-00 

TC/6200-00 

TC/6210-00 

Tipo di stampa 

Ad impatto 

Ad impatto 

Ad impatto 

Matrice di stampa 

6x7 

6x7 

6x8 con discendenti 

Stampa di caratteri a doppia larghezza 

Si 

Si 

Si 

Self, Test incorporato 

Si 

Si 

Si 

Stampa di caratteri in campo inverso 

Si 

Si 

Si 

Velocità di stamoa 

30 cps 

50 cps 

50 cps 

Larghezza trattori 

10'' 

10" 

10" 

Colonne di stampa 

40 e 80 

40 e 80 

40 e 80 

Interfaccia 

Per Vie 20 

eCBM64 

Parallela • Standard 

Centronics 

Parallela - Standard 

Centronics 

Seriale RS 232 C 

Cavo di collegamento 

Compreso 

Escluso 

Escluso 

Manuale 

In Inglese e Italiano 

In Inglese 

In Inglese 

Stampa caratteri a doppia altezza 

No 

No 

Si 

Caratteri definiti dalTutente 

1 

No 

64 

Stampa grafica 

Set caratteri 

COMMODORE 

7x480 

8x480 
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Figura 4. Flow-chart dei program* 
ma di figura 5. 


PROGRAM ROMAN; 
VAR X: INTEGÉR; 

BEGIN 
READLN (X); 

REPEAT 

WHILE X>= 1000 DO BEGIN 
WRITE (‘M’); X:=X-1000 
END; 

IF X >=500 THEN BEGIN 
WRITE (‘D’); X:=X-500 
END; 

WHILE X>=100 DO BEGIN 
WRITE CC); X:=X-100; 
END; 

IF X>= 50 THEN BEGIN 
WRITE (‘L’); X:=X-50 
END; 

WHILE X> = 10 DO BEGIN 
WRITE (‘X’); X:=X-10 
END; 

IF X>=5 THEN BEGIN 
WRITE (‘V’); X:=X-5 
END; 

WHILE X> = 1 DO BEGIN 
WRITE (T’); X:=X-1; 

END; 

WRITELN; READLN (X) 
UNTIL X=0 
END. 


Figura 5. Conversione di un nume¬ 
ro da notazione arabica a notazio¬ 
ne romana. 

Questo è un programma intero in 
PASCAL. Nelle prossime puntate si 
vedrà il significato preciso di VAR 
XTNTEGER; per ora la si consideri 
come la dichiarazione di una variabile 
di nome X e adatta a contenere un 
numero intero. Il BEGIN denota l’ini¬ 
zio della parte istruzioni del program¬ 
ma. C’è poi la procedura: READLN 
(X). Questa è identica alla READ ma 
richiede che il numero battuto termini 
con il tasto return. Per esempio se si 
battono i tasti 1, 2, 3 e return, nella 
variabile X verrà inserito il valore inte¬ 
ro 123. Il REPEAT contiene una se¬ 
quenza di WHILE e IF, che contengo¬ 
no dei BEGIN-END i quali a loro vol¬ 
ta contengono delle WRITE e degli 
assegnamenti. WRITELN infine fa 
semplicemente andare a capo il curso¬ 
re nel video senza scrivere nulla. 

Nel programma appena mandato in 
esecuzione il cursore è fermo in alto a 
sinistra nel video. Ora si è fermi sulla 
READLN. Bisogna battere un nume¬ 
ro seguito da return e comparirà nella 
linea successiva la traduzione di quel 
numero in romano. 

1983 MDCCCCLXXXIII 

Il cursore si ferma a capo in attesa di 
un altro numero. Se si introduce il nu¬ 
mero zero, il programma termina e 
compare sul video la prompt-line. 

Alessandro Mazzetti 
1 Continua. 


NOVITÀ 

BUFFERPER 
QUALUNQUE 
STAMPANTE 
CON STANDARD 
CENTRONICS. 

Memorizza immediata¬ 
mente 8 kbyte in uscita 
dal calcolatore e li invia 
successivamente alla stam¬ 
pante. Potete così usare 
il calcolatore mentre la 
stampante lavora. 

L. 250.000* 


GiCDin 

C.so Italia, 149 
34170 Gorizia 

VENDITA PER 
CORRISPONDENZA 


PER APPLE 

Drive 5" con doppio 
controller 

L. 770.000 

Drive aggiuntivo 
Interfaccia stampante 

L 680.000 

St. Centronics 

L. 80.000 

Interfaccia stampante 
Centronics per Epson 


con grafica 

Come sopra per 

L. 130.000 

Centronics 739 

L. 150.000 

Espansione 16K 
Language Card 
Espansione di memoria 

L. 99.000 

Maxiram 16K 

L. 150.000 

Interfaccia seriale 
bidirezionale RS232C 
Stampante Oki 80 

L 160.000 

(parallela) 

L. 720.000 

ULTIME NOVITÀ 

Replay scheda per la copiatura 

di tutti i programmi 

L. 188.000 

Per Apple/Ze 80 colonne 

-P 64 K 

L. 198.000 

* N.B. Tutti i prezzi sono comprensi¬ 
vi di IVA e spese di spedizione. 
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PERSONAL CONIPUTER 
E lmo STRUMENTO 
D’OGGI: 

PAGATELO 

NELL’AVVENIRE CON ' 


Prestitempo BAI 


Personal 
Computer: 
ecco uno strumen¬ 
to personale che Vi 
proietta già neH’awenire. Non c’è 
bisogno di aspettare domani per 
assicurarsi un computer veramente 
personal, già oggi: basta avvalersi - per 



dilazionato - del 
PRESTITEMPO 
una formula di finanzia¬ 
mento studiata apposi¬ 
tamente dalla BAI - una banca, come 
si vede, all’avanguardia - per le persone che 
lavorano già nel futuro. Come si fa, 
dunque, per avere subito un Personal 

Computer? 

Chiedetelo al Vostro rivenditore di fiducia 

o alla più vicina filiale BAI. 




dVAÌ 


D'America e d'Itaua 


Da ritagliare e spedire a: BAI - Servizio Marketing e Comunicazioni - Via Borgogna, 8 - 20121 Milano 


□ Desidero ricevere informazioni più dettagliate sulla formula di finanziamento Prestitempo “Personal Computer” 

□ Desidero essere contattato telefonicamente da un vostro funzionario della Filiale più vicina per avere 
informazioni sulle altre opportunità Prestitempo. 


SIC. 


AZIENDA CAP CITTÀ TEL. 














a[^[plettere 


Archivio numismatico 

Non ho ancora trovato 
programmi adatti aH'elenca- 
zione di raccolte numismati¬ 
che o filateliche, trattato a 
medio livello per piccoli o 
medi hobbisti, ovviamente 
in linguaggio basic. Farà 
qualcosa Applicando? 

Renato Traversa 
Ivrea 

Sì. Applicando preparerà 
qualche programma di que¬ 
sto genere. Una possibilità, 
nel frattempo, potrebbe esse¬ 
re quella di cominciare a usa¬ 
re qualche programma d'ar¬ 
chivio già esistente e adattar¬ 
lo alle proprie esigenze. Co¬ 
me per esempio: il Visidex, il 
Personal Data Base, il Visi- 
file. 

Lineetta o due punti 

Ho battuto “A colpi di la¬ 
ser" (Applicando n. 2) ma 
incontro problemi nel tra¬ 
scrivere il linguaggio mac¬ 
china. Non ho ben capito la 
differenza che c'è fra bat¬ 
tere: 

*2000:0B 00 18 00 67 00 08 
00 (return) 

mentre nel listato che viene 
pubblicato la prima riga del¬ 
ia tavola delle figure è: 
*2000- OB 00 18 00 67 00 08 
00 

Tiziano Maffei 
Portoferraio 

Quando si battono i due 
punti non occorre lo spazio 
poiché verrebbe Valutato dal 
computer come un errore. 
La lineetta è infatti seguita 
dallo spazio perché rilevata 
in fase di lettura e non di in¬ 
put. Per ottenere listati in lin¬ 
guaggio macchina ci sono 
due possibilità: la prima con¬ 
siste nel battere il numero 
della locazione di partenza 
seguito dalla lettera “L" per 
ottenere il listato disassem¬ 
blato. 

La seconda nel battere il 
numero della locazione di 
partenza, punto, locazione 
di arrivo, per ottenere il lista¬ 
to completo 8 byte alla volta. 
Se a un certo momento oc¬ 
corre fermare lo scroll si de¬ 


ve utilizzare Control-S come 
per i listati in basic. 

Modifica di curve 

Dopo aver digitato il pro¬ 
gramma “Curve di pressio¬ 
ne" (Applicando n. 2) mi so¬ 
no accorto che non esisteva 
una opzione per poter uscire 


dal programma. Ho quindi 
pensato che potesse interes¬ 
sare una semplice modifica 
per ovviare a questo incon¬ 
veniente: eccola. 

222 PRINT : HTAB 4 : 
PRINT “9) FINE” 

234 IF P < 1 OR P > 9 
THEN 230 


Il mercatino delle mele 


W Vendo per Apple II sche¬ 
da sintesi vocale e musicale a 
quattro voci (Lire 70 mila) e 
programmatore di Eprom in 
grado di duplicare 8, 16, 32, 
64K. Matteo Genero, Via 
Sambuy 99, 10026 Santena 
(Torino). 

V Cerco possessori di Ap¬ 
ple per scambiare idee e pro¬ 
grammi. Inviatemi i vostri ca¬ 
taloghi, risponderò con i miei. 
Davide Aredi, Via Verbano 
241, 28100 Novara. 

W Vendo per Apple II pro¬ 
gramma inedito di totocalcio 
“Supertoto 1.0” con sviluppo 
sia su monitor che su stam¬ 
pante, Lire 70 mila con il ma¬ 
nuale . Roberto Rossi, Via La¬ 
rio 26, 20159 Milano. Tel. 02/ 
6070236. 

S Vendo stampante Ho- 
neywell (mod. sara 10) prati¬ 
camente non usata. 80 cps per 
80 colonne (lire 500 mila) Ro¬ 
berto Del Bianco, Via XIX 
ottobre 5, 47036 Riccione. 


Vendo per Apple //e Ap¬ 
ple II software di qualsiasi 
tipo a prezzi vantaggiosi. Te¬ 
lefonare a Luigi Palumbo 06/ 
802783 (ore pasti). 

w Vendo Apple III 28K, ga¬ 
ranzia 6 mesi (lire 2 milioni 
più IVA). Maurizio Maggia, 
Via Bologna 220, 10154 Tori¬ 
no. Tel. 011/238623 (ore uf¬ 
ficio). 



drive, language card, scheda 
80 colonne (lire 2 milioni). 
Scambio programmi di ogni 
genere, escluso acquisto. 
Gianni Pavan, Via Arsa 13, 
30174 Mestre. Tel. 041/ 
911367. 

W Vendo per Apple II pro¬ 
grammi gestionali e di inge¬ 
gneria. Richiedete la lunghis¬ 
sima lista a: Carmela Cassisi, 
Via Gerolomini 89, 80078 
Pozzuoli (Napoli). 

W Compro per Apple //e 
scheda 64K -f- 80 colonne e 
cerco inoltre manuale origina¬ 
le The Last one. Emilio Gua¬ 
risco, Viale Romagna 2/M, 
92016 Ribera (Agrigento), 
Tel. 0925/67690 (ore serali). 

W Cerco in zona La Spezia e 
provincia possessori Apple 
per scambio programmi e per 
comunicazioni via modem: 
Alberto Marletto, Piazza S. 
Agostino 10,19100 La Spezia. 
Tel. 0187/24325. 


W Vendo per Apple II gioco 
“Avventura nel castello”. È 
originale Techno Club Soft¬ 
ware e costa 25 mila lire com¬ 
pleto di manuale. Andrea Be- 
netti. Via Cairoli 4, 13011 
Borgosesia. Tel. 0163/25062 
(ore serali). 

W Cerco utenti Apple II 
plus per scambio esperienze e 
programmi nella zona di Mila¬ 
no, Renzo Duci, Via Giorgio 
Savoia 3, 20141 Milano. Tel. 
02/8495816. 

Vendo stampante Cen¬ 
tronics 739 mai usata perché 
incompatibile con il mio soft¬ 
ware. Prezzo interessante. 
Tel. 080/734283 (ore pasti). 


238 IF P = 9 THEN HOME 
: END 

Frederich Naar 
Ventimiglia 

Figure scomparse 

Stavo girando il program- ^ 
ma figure quando, termina-' 
ta una figura, mi è apparsa la 
richiesta di dare un nome al¬ 
la tavola e cambiare il disco 
per memorizzarla. Distrat¬ 
tamente l'ho battezzato 
PIPPO ma non ho cambiato 
il dischetto. Ora il dischetto 
gira soltanto con il program¬ 
ma SCANNER; per FIGU¬ 
RE e STATISTICHE nulla 
da fare: quando batto RUN 
MENU viene subito la ri¬ 
chiesta: 

SHAPES 

1 - NUOVA TAVOLA 

2 - FINE 
QUALE? 

e non se ne esce più fuori. 

C'è nulla da fare per recu¬ 
perare i due programmi? 

Se batto CATALOG viene 
A 006 HELLO 


A 029 FIGURE 
B 002 PIPPO 

Ho timidamente provato a 
battere RUN PIPPO e mi ha 
risposto FILE TYPE MI- 
SMATCH. Sapreste inoltre 
indicarmi dove e come tro¬ 
vare un programma per fare 
il catalogo della mia biblio¬ 
teca? 

Alessandro Fioravanti 
Bolsena 

Se il nome della tavola di 
figure non era uguale a quel¬ 
lo di qualche altro program¬ 
ma, non ci sono problemi. 
Prova a cancellare PIPPO 
dal dischetto e vedere se cam¬ 
bia qualche cosa. Per richia¬ 
mare la tavola di figure devi 
utilizzare il programma Ri¬ 
chiama figure pubblicato su 
Applicando n. 2. Che poi la 
risposta al tuo tentativo di 
dare il run a PIPPO sia stata 
FILE TYPE MISMA TCH è 
normale, poiché è un file bi¬ 
nario, infatti per i file binari 
(quelli che nel catalog sono 
preceduti da una B) bisogna 
digitare BRUN seguito dal 
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ISBIEMMCOM 


nome del programma che 
vogliamo lanciare. 

Questo partirà solo se era 
stato scritto per essere auto¬ 
nomo, senza cioè nessun 
concatenamento ad altri pro¬ 
grammi. Il file che viene 
creato da FIGURE, non è 
assolutamente autonomo. 
Per quanto riguarda il cata¬ 
logo della tua biblioteca, ci 
sono una infinità di archivi 
tipo il VISIDEX, il PERSO¬ 
NAL DA TA BASE, il VISI- 
FILE e tanti altri che puoi 
trovare presso rivenditori 
specializzati Apple. 

Auto numerazione 

Come sapete sull’Apple // 
e manca il sistema di auto 
numerazione di linea. Mi 
servirebbe un programma 
che facesse in modo che du¬ 
rante la programmazione, 
ogni volta che volendo ter¬ 
minare la linea si batte re¬ 
turn, il computer vada a ca¬ 
po ed incrementi il numero 
di linea (step 10 o con la pos¬ 
sibilità di definire l’incre¬ 
mento aH’inizio) e si presen¬ 
ti il prompt dopo il numero 
di linea, pronto ad accettare 
'quanto il programmatore 
vorrà battere. 

Fabio' Bissarro 
Loano 

La soluzione puoi trovar¬ 
la nel Dos tool kit, prodotto e 
distribuito dalla Apple, che 
dispone, tra le altre caratteri¬ 
stiche, anche di un numera¬ 
tore automatico delle linee. 

L’Editing difficiie 

Posseggo un Apple //e da 
qualche settimana e ho no¬ 
tato che l’editor per quanto 
riguarda il basic è molto la¬ 
borioso rispetto ad altri pic¬ 
coli computer... 

Paolo Mondini 
Virgilio 

Puoi ovviare a questo in¬ 
conveniente usando il pro¬ 
gramma Edasm contenuto 
nel Dos tool kit, prodotto e 
distribuito dalla Apple, che 
permette i comandi di inseri¬ 
mento, ricerca, sostituzione, 
spostamento, cancellazione, 
lista, stampa ecc. L'output di 


questo programma viene re¬ 
gistrato su disco come file di 
testo in modo da poter utiliz¬ 
zare anche Vediting di un 
semplice word processor. 

Fiies binari 

L’unico sistema di mia co¬ 
noscenza per copiare file in 
monitor è quello di usare il 
programma Copya del Sys¬ 
tem Master, ma così sono 
costretto ogni volta a usare 
un nuovo dischetto. Se co¬ 
noscessi il modo di leggere i 
parametri del comando 
BSAVE allora tutto sarebbe 
più semplice. 

Marco Dal Pra’ 
Mestre 

Per conoscere i parametri 
del comando SAVE digita il 
programmino in basic pub¬ 
blicato qui sotto e, dopo aver 
inserito un dischetto inizia- 
lizzato e non protetto da 
scrittura, dai il RUN. Il pro¬ 
grammino scriverà un file di 
testo chiamato PARAME¬ 
TRI sul disco. Poi ogni volta 
che avrai bisogno di sapere 
quali sono i parametri di un 
programma binario sarà suf¬ 
ficiente eseguire queste ope¬ 
razioni: 

• Carica il programma bi¬ 
nario con BLOAD e nome 
del file 

• Inserisci il dischetto che 
contiene il programma chia¬ 
mato PARAMETRI e digita 
EXEC PARAMETRI Re¬ 
turn. Risultato: visione della 
locazione di inizio e lun¬ 
ghezza del programma che 
hai caricato. Ecco il listato 
100 D$ = CHR$ (4): PRINT 
D$; ^ OPEN PARAME¬ 
TRI": PRINT D$; ^^WRITE 
PARAMETRI" 

HO PRINTHNVERSE: 
PRINT "CHR$H34)" INI¬ 
ZIO ^THR$ (34)" PEEK 
(43635) * 256 + PEEK 
(43634), ^^CHR$(34)" LUN- 
GHEZZA "CHR$(34) 
PEEK (43617) * 256 • 
PEEK (43616): NORMAL" 
120 PRINT D$; “CLOSE 
PARAMETRI": END 

Manuaii in italiano 

Ho letto sull’ultimo nu¬ 
mero che esiste un manuale 


DAU'INVE 



Filiali: Milano Tel. 02/75451-Torino Tel. 011/6192192 
Mestre Tel. (Hl/962255-Genova Tel. 010/451801 
Bologna Tel. 051/557157-Firenze Tel.055/355841 
Roma Tel. 06/58421 -NapoU Tel. 081/660266. 
Distributori autorizzati in tutta Italia-vedi Pagine Gialle. 








MCAUOIKJISBIMIU SI EìlOLVONa 


SUPPORTI MAGIIETia'SM. 

IZIONI AL PRMMO TECNOlOeiCO. 



I, 


Il primo nastro per 
computer è stato 
prodotto dalla 3M 
nel 1952. Un primato 
che ha consentito la 
realizzazione dei 
supporti magnetici più 
. affidabili e sicuri. 

Le Diskette 3M, 
ad esempio. Omologat 
dai maggiori costr 
Certificate al 1 
Garantite 5 ann’ 

in tutto il mom^ò. Prescelte come 
riferimento imemazionale da ECMA, 
ISO-ed AN81. Una gamma completa 
iskette 8 pollici che per le 
iskette 5 pollici e un quarto. 

Le Diskette 3M, grazie all’esclusivo 


nto magnetico, 
garantiscono 

un’eccezionale resistenza 
all’usura e la massima 
affidabilità. 

La stessa affidabilità 
che offrono tutti i 
Supporti Magnetici 3M: 
Nastri per Computer, 
Dischi Magnetici, 

Data Cartridge. 

Le Diskette e i Nastri Magnetici 3M 
sono interamente fabbricati in Italia e 
questo significa immediata reperibilità 
e migliore assistenza. 

Assistenza e consulenza tecnica 
che il Cliente trova presso le 8 filiali, 
i venditori diretti e 400 distributori 3M, 
in tutta Italia. 


SISTHIII PER L'UFFICIO 3M.LA PERFEZIONE DELLA SPEOE. 



Telecopiatori 


Copiatori 


Microfilm 


Sistema Visual 


I-1 

I Desidero ricevere ulteriori informazioni i 

' sui Supporti Magnetici 3M. • 

I Nome_ I 

I Azienda_ | 


Via 


Cap_Città_^^ 

A 

Ritagliare e spedire a: 

3M Italia S.p.A.-Linea Diretta- 
CaseUa Postale 10411/10412-20110 Milano. 
Oppure telefonare a; 02/75451 
























franco muzzio editore - via bonporti, 36 - 35141 padova 





ÉÉappkz computar 



DISTRIBUTORE 
APPLE 

CON CENTRO 
ASSISTENZA 
DI ì° LIVELLO 



Computcf Ihop 

VUV. E. Orlando, I64/I66 
Tel. (095) 44 16 20 
95127 CATANIA 
























































































































lettere 


in italiano per il Visicalc. 
Dove si può acquistarlo? 
Credo che tutti i programmi 
un po' complessi non venga¬ 
no comprati solo perché non 
esiste il manuale in italiano. 

Luciano Casali 
Milano 

// manuale italiano del Vi¬ 
sicalc si deve richiedere al ri¬ 
venditore del programma o 
direttamente alla Apple Ita¬ 
lia che ne è la distributrice. 
Siamo d'accordo con lei che 
per i programmi più com¬ 
plessi occorrerebbero i ma¬ 
nuali in italiano. Le case im¬ 
portanti stanno infatti tradu¬ 
cendo le applicazioni più in¬ 
teressanti e i relativi manuali. 

Scanner più italiano 

Il programma scanner 
pubblicato sul primo nume¬ 
ro di Applicando, può esse¬ 
re reso più adeguato alla lin¬ 
gua italiana sopprimendo le 
lettere j, k, w, x, y e aumen¬ 
tando la frequenza delle vo¬ 
cali. Le modifiche necessa¬ 
rie per ottenere entrambi gli 
scopi si riducono a: 

1) Dimensionare un vettore 
X con 31 componenti; si può 
utilizzare una delle istruzio¬ 
ni 120 - 180, per esempio: 
120 DIM X(31) 

2) Introdurre le istruzioni: 
222 POR I =1 T0 26 : X(I) 
= I : NEXT 

224 X(27) = 1 : X(28) = 5 : 
X(29) = 9 : X(30) = 15 : 
X(31) = 21 

228 X(10) = 1 : X(ll) = 5 : 
X(23) = 9 : X(24) = 15 : 
X(25) = 21 

3) Modificare le istruzioni 
240 e 250 così: 

240 R = INT(31* RND(l)) 
+ 1 

250 POKE 1151 -f X,X(R) 
+ 128. 

Se si vuole ottenere una 
frequenza delle vocali dop¬ 
pia rispetto a quella delle 
consonanti basta: 

1) Cambiare da 31 a 26 la 
costante che compare nelle 
istruzioni 120 e 240; 

2) Sopprimere l’istruzione 
224. 

Giulio C. Barozzi 
Bologna 


Apple insegna Apple 

Vorrei sapere se c’è in 
commercio un corso di pro¬ 
grammazione Apple su di¬ 
schetti per permettere l'ap¬ 
prendimento direttamente 
dalla macchina. 

Roberto Gentilucci 
Como 

Sì, in commercio esistono 
programmi di questo tipo 
come: 

• Corso autodidatta di pro¬ 
grammazione in basic - ap- 
plesoft. 

• Corso DOS 3.3. 
(Produttore: Memor Infor¬ 
matica) 

Sono in italiano e guidano 
l'allievo con spiegazioni e 
test per verificare di volta in 
volta il grado di apprendi¬ 
mento. 

Ancora la signorina 

Desidererei sapere se il 
programma ‘‘Signorina ci 
pensi lei” pubblicato a pagi¬ 
na 58 di Applicando n. 3 può 
girare sul mio Apple // Euro- 
plus. 

Pietro Troja 
Capaci 

"'Contratti", questo è il no¬ 
me del programma, funzio¬ 
na in WPL, che è un linguag¬ 
gio di word processing con¬ 
tenuto nell Apple Writerlle, 
per Apple He. Purtroppo 
non gira su Apple H Euro- 
plus. 

Altri linguaggi 

Ritengo possa essere inte¬ 
ressante dedicare una rubri¬ 
ca di Applicando agli altri 
linguaggi disponibili su Ap¬ 
ple, con particolare riferi¬ 
mento al Pascal. Spero di ri¬ 
farmi vivo presto con pro¬ 
grammi in Pascal. 

Sante Candia 
Monopoli 

Già su Applicando n. 4 è 
stato pubblicato un pro¬ 
gramma di musica in Pascal. 
Dedicato a questo linguag¬ 
gio inizia da questo numero 
una serie di articoli didattici. 
Altri ne seguiranno, aspettia¬ 
mo anche i tuoi. 


Apple 
a Genova. 

i 

La mela 

secondo Sals Infonnatìca: 

Sistemi completi pronta consegna 
Tutti gli accessori e le periferiche 
Materiali di consumo 
Programmi per ogni esigenza 
Assistenza tecnica 
Corsi a tutti i livelli 
Consulenza 

Informazione tecnica e commerciale 
Show room 

Distribuzione per l’Italia 

^appkz computer IRET 

informatica 




Sals Informatica: 

liittì i servizi 
per la vostra automazione. 

nsais 

]U Infonnailca 


Via G. D’Annunzio 2-35 - 16121 Genova tei. (010) 589.327 
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Listati senza fatica 








I programmi pubblicati su Applicando possono es¬ 
sere trascritti dai lettori e salvati su dischetto. Ma la 
trascrizione è lenta e noiosa. Chi lo desidera può 
richiederci i dischetti sotto indicati, già pronti. Chi 
desiderasse anche il dischetto con i programmi 
STATISTICHE, SCANNER e FIGURATI UN PO’ può 
ottenerlo gratis. Abbonandosi ad Applicando. 


★ AP4/N07. Dischetto con I programmi 
LETTURA SPRINT in versione italiana e 
LETTURA SPRINT con frasi in inglese 
(pag. 26), ROMPIQUINDICI (pag. 47), 
TASTIERINO FANTASMA (pag. 73), e 
ROUTINE DI INPUT (pag. 76). Lire 
30.000 (Abbonati Lire 25.000). 

AP4/A08. Dischetto dati VisiDex BAN¬ 
CA DATI APPLE (pag. 41). Occorre Visi- 
Dex. Lire 30.000 (Abbonati Lire 25.000). 

AP4/A09. Dischetto Pascal (occorre 
Language Card o Apple //e) con i pro¬ 
grammi ORGANO, VIOLINO, PIANO¬ 
FORTE (pag. 21). Lire 30.000 (Abbonati 
Lire 25.000). 

★ AP3/IN05. Dischetto con i programmi 
SISTEMA BASE (pag. 14), ETICHETTE 
(pag. 36), CONTRATTI (pag. 58), DADI E 
PUNTI (pag. 67) e GRAN CATALOGO 
(pag. 82). Lire 30.000 (Abbonati Lire 
25.000). 

AP3/A06. Dischetto dati VisiCalc EQUO 
CANONE (pag. 44). Occorre VisiCalc. 
Lire 25.000 (Abbonati Lire 20.000). 

ic AP1/I02. Dischetto con i programmi 
PROFITTI PER FAVORE (pag. 38), CA¬ 
LENDARIO PERPETUO (pag. 54), e I 
TRONCHI DEL TESORO (pag. 66). Lire 
30.000 (Abbonati Lire 25.000). 




★ AP1/N03. Dischetto con i programmi 
ELIMINATORE DI DOS (pag. 28), ORO¬ 
LOGIO (pag. 44), e PRONTI PUNTARE 
FUOCO! (pag. 46). Lire 30.000 (Abbonati 
Lire 25.000). 

★ AP2/IN04. Dischetto con i programmi 
COSTI CHILOMETRICI (pag. 14), RI¬ 
CHIAMA FIGURE (pag. 44), LASER NEL¬ 
LO SPAZIO (pag. 46), e CURVE DI 
PRESSIONE (pag. 57). Lire 30.000 (Ab¬ 
bonati Lire 25.000). 

★ AP5/N09. Dischetto con i programmi 
AGENDA PERSONALE (pag. 23), DUEL¬ 
LO D’ARTIGLIERIA (pag. 30), MELE E 
FRECCETTE (pag. 63). Lire 30.000 (Ab¬ 
bonati Lire 25.000). 

AP5/N08. Dischetto con il programma 
INVESTOR (pag. 34) Lire 70.000 (Abbo¬ 
nati Lire 60.000). 


* I dischetti contrassegnati con asterisco 
contengono anche il programma TOMBOLA, 
omaggio natalizio di Applicando e di Compu- 
shop, Via Nomentana 265-273, Roma. 


Compilare e spedire il tagliando qui sotto a Applicando, Editronica Srl., Corso Monforte 39, 20122 Milano 

Vogliate inviarmi i seguenti dischetti: ... 

Via...Gap... 

Città.Prov. 

Scelgo la seguente formula di pagamento: 

□ allego assegno di L.non trasferibile intestato a Editronica srl. 


n. 

lAlPl 

1 / 1 



n. 

lAlPl 

1 / 1 

1 


n. 

lAlPl 

1 / 1 

1 

1 1 

n. 

lAlPl 

1 / 1 

1 


n. 

lAlPl 

1 / 1 

1 

1 1 

n. 

lAlPl 

1 / 1 


1 1 

n. 

ÌÈlPl. 

1 / 1 

J 

1 1 


□ allego ricevuta versamento dii.sul cc/p n. 19740208 intestato a 

Editronica srl - Corso Monforte, 39 - 20122 Milano 

□ pago fin d’ora l’importo dii.con la mia carta 

di credito BankAmericard N..... 

scadenza.autorizzando la Banca 

d’America e d’Italia ad addebitarne l’importo sul mio conto BankAmericard. 


Sono abbonato: sì □ no □ 


Data....Firma . 
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Flexible Discs 
per grandi e 
k piccole esigenze 
^ per acquistare 
WL quanto basta 

e quando occorre. 


A Burroughs Company 


Via Ciro Menotti, 14 - 20129 Milano 
Telefono: 02/718551 


MEMOREX 
















Il posto delle mele del tempo delle mele. 

Il tranquillo ambiente della nuova rivoluzione. 

Le proposte che stanno cambiando il modo 
di fare le cose, la maniera di usare il tempo e gli 
strumenti del mestiere, della 
scienza, della tecnica e della 
cultura. 

Per chi di computer 
sa tutto ed ha bisogno di 
assistenza specialistica, software, 
di una stampante nuova, di libri 
0 anche solo di un pacco di carta... 

Per chi non sa niente, ma 
vorrebbe sapere, e capire: 
assistenza informativa, corsi di 
formazione, guida all’acquisto, 
consulenza. 

Per chi ha un computer e per chi no, per un 
video a colori, i dischi, un modello nuovo, 
espansioni ed integrazioni di sistema... 


A Roma, venti, venticinquemila nuovi 
computer entreranno quest’anno negli studi 
di notai, avvocati, medici, ingegneri, 
architetti e progettisti, nelle case di 
amministratori e 
consulenti, professori 
e studenti, in moite 
medie e piccole aziende. 

Anche per questo è . 
nato Compushop: per 
dare assistenza 
specialistica e sicura 
consulenza professionale 
prima e dopo l’acquisto, 
installazione e guida 
all’uso di personal 
e sistemi integrati d’azienda. 

Venite a trovarci. Vi aspettiamo. 

Via Nomentana 265,267,269,271,273, 
di fronte a Villa Torlonia. 


(AliimpuShap 


^appkz GomputGr 



computershop 

Via Nomentana 265-273 
telefono 8450078/857124 































































